txt 파일을 quickreport로 출력 할려고 합니다.
우선 파일을 읽어서 needdata로 출력하면 되는데 문제는 한줄만 찍힌다는것입니다.
변수는 qrlabel로 6개를 줬는데 이것을 data가 있는양만큼 출력하되 20라인 까지만 출력하게끔 하는것 입니다. 해결 방법을 좀 찾아 주세요...
소스부분 ===============================
if start <= 20 then MoreData := true
else MoreData := False;
if MoreData=True then
begin
AssignFile(Ft,'c:12345678recieve1.txt');
reset(Ft);
Read(Ft, Ftstring);
closefile(Ft);
cnt := length(Ftstring);
cnt1 := ((cnt - 130) div 100) + 1;
gubun := copy(Ftstring,131 +(100*(start-1)),5);
gubun1 := gubun_han(gubun);
data1.Caption := gubun1;
data2.Caption := copy(Ftstring,136 +(100*(start-1)),10);
data3.Caption := copy(Ftstring,146 +(100*(start-1)),4);
data4.Caption := copy(Ftstring,150 +(100*(start-1)),50);
data5.Caption := copy(Ftstring,200 +(100*(start-1)),8);
data6.Caption := copy(Ftstring,208 +(100*(start-1)),8);
end;
Inc(start,1);
==============================================================
cnt1 만큼 출력이 되어야 하는데 안됨.