How to increase the speed in Runtime?

Comments

• gordk St.Catherines On. Canada.

  February 2005 edited 2:32AM

  of course it is taking time you are creating 7700 objects.
  try this approach
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  LFXPCOM:TfrxPage;
  LFXMCOM:TfrxMemoView;
  databand:tfrxmasterdata;
  i,j:integer;
  begin
  frxReport4.Clear;
  LFXPCOM:=TfrxReportPage.Create(frxreport1);
  LFXPCOM.CreateUniqueName;
  ;
  DataBand := TfrxMasterData.Create(lfxpcom);
  DataBand.CreateUniqueName;
  DataBand.RowCount :=100;
  DataBand.Top := 10;
  DataBand.Height := 10;
  j:= 1;
  for i:=1 to 77 do
  begin
  LFXMCOM:=TfrxMemoView.Create(databand);
  LFXMCOM.CreateUniqueName;
  LFXMCOM.SetBounds(i*10,j*10,10,10);
  LFXMCOM.HAlign:=haCenter;
  LFXMCOM.VAlign:=vaCenter;
  LFXMCOM.Frame.Typ:= [ftLeft,ftRight,ftTop,ftBottom];
  LFXMCOM.Memo.Text:='A';
  end;
  
  frxreport1.ShowReport;
  end;
  
  
• jqjiang

  February 2005 edited 2:32AM

  Thank you very much!
  My program had posted is just to explain that it's very slowly. In fact, I will set Memo different value with calculating result.
  It's very fast in FastReport 2.X even if I am creating 20000 objects. It takes no more than 10 seconds.
  
• jqjiang

  February 2005 edited 2:32AM

  Are there any ways to improve the speed?