메모장에서 10개의 레코드를 읽어서 quickreport로 출력하려고 합니다.

근데...아래와 같이 코딩하였더니...계속 같은 위치에 엎어써져서...

마지막 10번째 레코드만 출력이 되거든요...

어떤식으로 써야....같은 위치에 엎어써지지 않고...

row + 1 의 위치에 출력해줄수 있나요....



procedure Tqr_test.QuickRepNeedData(Sender: TObject;

var MoreData: Boolean);

var

TestFile : TextFile;

len : Array[1..8] of String;

str : String;



i, j, k : integer;

begin

AssignFile(TestFile, 'c:공유testreport_test.txt');

Reset(TestFile);



while not Eof(TestFile) do

begin

j := 1;

k := 0;



Readln(TestFile, Str);

for i := 0 to length(trim(Str)) do

begin

if str[i] = ';' then //';'구분자

begin

k := k + 1;

len[k] := copy(str, j, i-j);

j := i + 1;

end;



end;

isu_no.Caption := len[1];

isu_nm.Caption := len[2];

aset_no.Caption := len[3];

from_ymd.Caption := len[4];

to_ymd.Caption := len[5];

agr_amd.Caption := len[6];

isu_am.Caption := len[7];

rmk.Caption := len[8];

for i := 1 to 8 do

len[i] := '';

end;

CloseFile(TestFile);

end;