[Lazarus] Memo.Lines.Add seems to be slow with Lazarus 1.6

[Bernd Mueller via Lazarus]

Hello,

with Lazarus 1.6 (FPC 3.0.0 i386-linux-gtk 2) filling a Memo with 10000 
lines takes about 18 seconds on my system. Doing the same with Lazarus 
1.4.0 (FPC 2.6.4 i386-linux-gtk 2) takes about 193 ms. I cannot believe, 
that Lazarus 1.6 should be nearly 90 times slower than 1.4.0.

I am wondering, if this is a bug or by design?

Regards, Bernd.

unit Unit1;
{$mode objfpc}{$H+}
interface

uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 
StdCtrls, LCLIntf;

type
   { TForm1 }
   TForm1 = class(TForm)
      Button1: TButton;
      Memo1: TMemo;
      procedure Button1Click(Sender: TObject);
   private
      { private declarations }
   public
      { public declarations }
   end;

var
   Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
   i: Integer;
   s: String;
   Start, Stop: DWord;
begin
   s:= 
'01234567890123456789012345678901234567890123456789012345678901234567890123456789';
   Memo1.Clear;
   Start:= GetTickCount;
   Memo1.Lines.BeginUpdate;
   for i:= 1 to 10000 do begin
      Memo1.Lines.Add(s);
   end;
   Stop:= GetTickCount - Start;
   Memo1.Lines.EndUpdate;
   ShowMessage(IntToStr(Stop) + ' ms');
end;
end.
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus