Q&A

  • 파일에서 특정구간을 찾아서..
용량이 큰 파일이 있는데요.(2G-4G가 정도)

이 파일의 특정라인 구간을 스트링그리드로 옮기려면 어떻게 해야하나요?

30라인부터 60라인 까지.. 이런식으로요..

그럼 빠른 답변 부탁드립니다.
1  COMMENTS
  • Profile
    열심히 2002.12.18 02:27
    아래의 소스는 정보처리 산업기사 시험내용을 수정한것입니다..

    근데 파일이 2~4기가나 된다니 속도는 장담못하겠네요..


    var
      iStart, iCnt, i1, i2 : integer;
      ff : TextFile;
      ss : String;
    begin
      iStart := StrToInt(Trim(Edit1.Text));
      iCnt   := StrToInt(Trim(Edit2.Text));

      AssignFile(ff,'D:gisa20021103pmabc0105.txt');
      Filemode := 0;
      Reset(ff);

      i1 := 0;
      i2 := 0;

      while not eof(ff) do
        begin
        inc(i1);
        readln(ff, ss);

          if (iStart <= i1) and (iStart + iCnt > i1) then
          begin

          StringGrid1.Cells[0,i2] := ss;
          inc(i2);
          end;

        end;

      StringGrid1.RowCount := i2;
      CloseFile(ff);