Lucas Franzen schrieb:

>
> procedure AllSelectRows;
> var
> sl: TStringList;
> ii: Integer;
> begin
> sl := TStringList.Create;
> with myQry do
> begin
> SelectedBookmarks ( sl ); // Get all List of Selected Records
> (Bookmarks)
> for II := 0 to sl.Count - 1 do
> begin
> BufferBookmark := sl[ii];
>
> // do whatever you want with the current Record now ....
> ShowMessage ( 'SELECTED ID = ' + BufferFieldbyName ( 'ID_FIELD'
> ).AsString );
> end;
> end;

sl.Free; <<<<<<<< ups!

> end;
>
> Luc.

and maybe it would be a good idea to Free the StringList afterwards *g*
(sorry, forgot that)

Luc.