Mattias Gaertner wrote:
> Al Boldi <[EMAIL PROTECTED]> wrote:
> > Vincent Snijders wrote:
> > > Jesus Reyes schreef:
> > > > --- Al Boldi <[EMAIL PROTECTED]> escribiظژ:
> > > >> 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
> > > >
> > > > Are you sure?, this doesn't match with Mattias mail.
> > >
> > > Al, did you set the focused row to the last added rows after each
> > > 10 rows?
> >
> > Here is the code:
> > ============================
> > StringGrid1.RowCount:=100002;
> > i:=0;
> > repeat
> > inc(i);
> > StringGrid1.Cells[0,i]:='tst'+inttostr(i);
> > until i>100000;
> > ============================
>
> The component is updated several times a second to give the user visual
> feedback during the compilation progress. At the moment every read
> line is either added to the TListBox or replacing the last line of the
> TListBox. So changing RowCount would be called every added line.
> The message window is using Begin/EndUpdate. It calls them about three
> times a second. So basically there are a lot of 'change last item', many
> adds and several Begin/EndUpdates.
> 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.
TStringGrid gains it's speed from preallocating the list.
Preallocating the tree in TTreeView could improve its speed a lot.
> StringGrid1.Cells[0,i-1]:=IntToStr(i);
> for j:=1 to 10 do begin
> StringGrid1.Cells[0,i-1]:=IntToStr(i)+','+IntToStr(j);
> end;
> end;
> StringGrid1.EndUpdate;
>
> About: Who wants to see 30.000 lines?
> Answer: No one. But compiling a quickly ported Delphi lib creates
> easily thousand of hints, notes and warnings.
> And those poor windows users without a proper terminal who
> set -vt or even -va to debug a 'unit not found' error.
> It would be good, if the message window would already supports
> filtering and sorting. But it does not yet and we are talking about an
> easy replacement.
> By the way, eventually I will implement filtering and sorting for
> the message window and then a tree like control will be needed anyway.
> So, I guess, I will replace the TListBox with a TTreeView.
Agreed.
Thanks!
--
Al
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
