퀵레포트에서 여러레이블에 테이블값을 넣어주려고 합니다.

근데 qrlabel은 findcomponent가 안먹네요.

다음은 제가 코딩한 부분입니다.

mycomp가 항상 nill입니다.

답변 부탁드립니다.



procedure TfrmSL43121R.QRBand3BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

var mycomp : TComponent; i:integer;

begin

inherited;

with query2, query2.sql do begin

close; clear;

add('select bankname from s_sl43121q order by sl_seq ');

open;

first; i := 0;

while not EOF do begin

i := i + 1;

if i > 13 then break;

mycomp := findcomponent('QRLabel' + inttostr(i));

if mycomp <> nil then

(mycomp as TQRLabel).caption := FieldByName('BANKNAME').AsString;

next;

end;

end;

end;