문제부분은 아래와 같습니다



Tmemo 나 TRichEdit 콤포넌트 문제는 아닙니다.

TMemo 나 TRichEdit 에서 직접 불러서 수정하는 것이 아니고 라인단위로 읽어서

Paradox DB Table 에 한 레코드씩 추가하는 상황이기 때문에....



상기의 문제점과 관계없이 TMemo 나 TRichEdit 에서 처리할 수 있는 text file 크기는 얼마나 되는지요...





procedure TForm1.btnReadPartClick(Sender: TObject);

> var

> PartTextFile: TextFile;

> S50: string[50];

> JepumCode: string[20];

> JepumName: string[30];

> i: integer;

> begin

> AssignFile(PartTextFile, 'part2.txt');

> Reset(PartTextFile);

> i := 0;

> try

> while not Eof(PartTextFile) do <--- Error부분 PartTextFile 크기가 클

> begin 경우에는 while loop 를 한번만 돌고

> i := i+1; loop를 빠져 버립니다.

> edtLineCount.Text := intToStr(i);

> Readln(PartTextFile, JepumCode, JepumName);

> lblPartLineText.Caption := JepumCode+JepumName;

> lblJepumCode.Caption := JepumCode;

> edtJepumName.Text := JepumName;

> end;

> finally

> CloseFile(PartTextFile);

> end;

> end;