E
enjoydelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
这是我写的一段程序，但报表显示速度非常慢（以前FastReport 2.5的很快），这是什么原因呢？
procedure TForm1.Button1Click(Sender: TObject);
var
LFXPCOM:TfrxPage;
LFXMCOM:TfrxMemoView;
i,j:integer;
begin
frxReport1.Clear;
LFXPCOM:=TfrxReportPage.Create(Self);
LFXPCOM.Parent:=frxReport1;
for i:=1 to 77do
for j:=1 to 100do
begin
LFXMCOM:=TfrxMemoView.Create(Self);
LFXMCOM.Parent:=LFXPCOM;
LFXMCOM.HAlign:=haCenter;
LFXMCOM.VAlign:=vaCenter;
LFXMCOM.Frame.Typ:= [ftLeft,ftRight,ftTop,ftBottom];
LFXMCOM.SetBounds(i*10,j*10,10,10);
LFXMCOM.Memo.Text:='A';
end;
frxReport1.ShowReport(true);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
LFXPCOM:TfrxPage;
LFXMCOM:TfrxMemoView;
i,j:integer;
begin
frxReport1.Clear;
LFXPCOM:=TfrxReportPage.Create(Self);
LFXPCOM.Parent:=frxReport1;
for i:=1 to 77do
for j:=1 to 100do
begin
LFXMCOM:=TfrxMemoView.Create(Self);
LFXMCOM.Parent:=LFXPCOM;
LFXMCOM.HAlign:=haCenter;
LFXMCOM.VAlign:=vaCenter;
LFXMCOM.Frame.Typ:= [ftLeft,ftRight,ftTop,ftBottom];
LFXMCOM.SetBounds(i*10,j*10,10,10);
LFXMCOM.Memo.Text:='A';
end;
frxReport1.ShowReport(true);
end;