procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
for i:=0 to componentcount-1 do
begin
if components[i] is tlabel then
begin
s:=tlabel(components[i]).Caption ;
richedit1.Lines.Add(s);
end;
end;
richedit1.Print('test');
end;记得把richedit1的visible属性设为false。就可以了。
var
i:integer;
s:string;
begin
for i:=0 to componentcount-1 do
begin
if components[i] is tlabel then
begin
s:=tlabel(components[i]).Caption ;
richedit1.Lines.Add(s);
end;
end;
richedit1.Print('test');
end;记得把richedit1的visible属性设为false。就可以了。
http://reportmachine.delphibbs.com