On Mon, 22 Jan 2007 14:16:25 +0300
Al Boldi <[EMAIL PROTECTED]> wrote:
> Mattias Gaertner wrote:
> > Al Boldi <[EMAIL PROTECTED]> wrote:
> > > > > > >> TListBox: 10k rows in 73sec
> > > > > > >> TTreeView: 100k rows in 50sec
> > > > > > >> TMemo: 100k rows in 30sec
> > > > > > >> TListView: 100k rows in 1.5sec
> > > > > > >> TStringGrid: 100k rows in 0.5sec
> > > > >
> > > > > Here is the code:
> > > > > ============================
> > > > > StringGrid1.RowCount:=100002;
> > > > > i:=0;
> > > > > repeat
> > > > > inc(i);
> > > > > StringGrid1.Cells[0,i]:='tst'+inttostr(i);
> > > > > until i>100000;
> > > > > ============================
> > > >
> > > > That's why I tried:
> > > >
> > > > StringGrid1.ColCount:=1;
> > > > StringGrid1.BeginUpdate;
> > > > for i:=1 to 100000 do begin
> > > > StringGrid1.RowCount:=i;
> > >
> > > This line basically kills TStringGrid.
> >
> > Yes, but the IDE does not know the number of lines in advance.
> > Of course it would be possible to write a wrapper to add in bigger
> > chunks.
> >
> > > TStringGrid gains it's speed from preallocating the list.
> > >
> > > Preallocating the tree in TTreeView could improve its speed a lot.
> >
> > I doubt that. It already works with exponential growth.
>
> Preallocate in 16sec ============
> TreeView1.BeginUpdate;
> TreeView1.Items.Clear;
> for i:=1 to 100000 do
> TreeView1.Items.Add(nil,'');
> TreeView1.EndUpdate;
I improved it. Please try.
> =================================
>
> Fill tree in 2sec ===============
> TreeView1.BeginUpdate;
> for i:=1 to 100000 do begin
> TreeView1.Items[i-1].Text:='tst'+IntToStr(i);
> for j:=1 to 10 do
> TreeView1.Items[i-1].Text:=IntToStr(i)+','+IntToStr(j);
> end;
> TreeView1.EndUpdate;
> =================================
>
> > I still wonder why your treeview times are so much slower than
> > mines. Did you use Begin/EndUpdate?
>
> No preallocation > 2min ^C ======
> TreeView1.BeginUpdate;
> TreeView1.Items.Clear;
> for i:=1 to 100000 do begin
> TreeView1.Items.Add(nil,'tst'+inttostr(i));
> for j:=1 to 10 do
> TreeView1.Items[i-1].Text:=IntToStr(i)+','+IntToStr(j);
> end;
> TreeView1.EndUpdate;
> =================================
I improved that too. Please try.
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
