Q&A

  • 그리드에 30,000에서 40,000 라인 입력하기
밑에 소스를 사용하여 3만에서 4만 라인을 입력하려고 하는데

프로그램이 죽네요. 한라인 문자수는 100자 정도고 컬럼 수는

15컴럼정도입니다.

3만라인 이상 최대 몇라인까지 입력할 수 있는지 가르쳐주세요.



while Not Eof(TmpFile) Do

Begin

Readln(TmpFile, Buf);

K := 1;

for i := 1 to Length(buf) do

begin

if (Buf[i] = '|') then // -> '|' 는 임의의 구분자입니다.

K := K + 1

else

LinGrd.Cells[k,j] := LinGrd.Cells[k,j] + Buf[i];

end;

Inc(j);

End;

finally

Perform( WM_SETREDRAW, 1, 0 );

Invalidate;

end;

0  COMMENTS