急！！！如何在程序运行中，根据一个table中字段的个数n，动态创建n个Qrlabel和n个qrtext.

Question

var
  aa:TQrLabel;
  bb:TQrText;
begin
  aa := TQrLabel.Create(Form1);
  bb := TQrText.Create(Form1);
  for i:=0 to Table1.FieldCount do
  begin
    with aa do
    begin
      name:='aaQrLabel'+IntTostr(i);
    end;
    with bb do
    begin
      name:='bbQrText'+IntTostr(i);
    end;
  end;
end;

Answer 1

千两狂死郎:
  不好意思，动态生成的qrlabel和qrtext能加到一quickrep 中，并用quickrep1.preview能预览吗？ 

Answer 2

(千两狂死郎)作的是report里面的吗？

Answer 3

http://www.csdn.net/cnshare/soft.asp?class=219
中的SReport是小弟写的。是动态典范。呵呵。