Thanks, it makes a huge speed difference.
But could someone tell me what BeginBusy does, can't seem to find any
info in the help file of IBO, only its declaration.


--- In IBObjects@yahoogroups.com, "Jason Wharton" <jwharton@i...>
wrote:

> It would be faster if you did a couple of things:
>
> var
> tmpCol: TIB_Column;
> begin
> ...
> tmpCol := q.BufferFieldByName( 'DOC_NR' );
>
> q.BeginBusy( false );
> sl.BeginUpdate;
>
> try
>
> q.BufferFirst;
> While not q.BufferEOF do begin
> if q.Selected[q.BufferRowNum] then
> sl.Add( tmpCol.AsString )
> q.BufferNext;
> end;
>
> finally
> sl.EndUpdate;
> q.EndBusy;
> end;
>
>
> HTH,
> Jason Wharton