报表中有许多表格,每一格子数据不同,我的想法是在每一格子上放一QRlabel,并为每一QRlabel编流水号( 如A11,A12,A13等,希望在显示或打印前通过FOR i:=1 to n do , 利用其流水号的特点组合不同的QRlabel名,并将具体数据赋给QRlabel.caption,而不是逐一的为每一个QRlabel.caption赋值。 以上想法可行吗?但如何组合不同的QRlabel名,如何找到具体的QRlabel,并为之赋值?或有否其他方法?
for i:=0 to 10 do
begin
from1.这里如何动态得到A+i.caption:=xxx
...
end;
------解决方案--------------------------------------------------------
终于找到答案啦,希望对其它朋友有帮助!
Uses QRCtrls; 一定要有这句,调了半天就是差着这句
for i:=1 to 16 do
begin
if TComboBox(FindComponent('C_'+inttostr(i))).Text<>'==' then
begin
(QrFmExpenseCX.findcomponent('C'+inttostr(i)) as tqrlabel).caption:=TComboBox(FindComponent('C_'+inttostr(i))).Text;
(QrFmExpenseCX.findcomponent('G'+inttostr(i)) as tqrlabel).caption:=TEdit(FindComponent('E_GW'+inttostr(i))).Text;
(QrFmExpenseCX.findcomponent('B'+inttostr(i)) as tqrlabel).caption:=TEdit(FindComponent('E_BL'+inttostr(i))).Text;
end;