Recupération des selections sur une DBGrille multi Selection

C'est grace à la propriété SelectedRows.Items
L'aide de Delphi indique ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
L'exemple suivant copie dans une boîte liste les lignes sélectionnées dans une grille de données.
 
procedure TForm1.Button1Click(Sender:TObject);
var
i,j:Integer;
s:string;
begin
ifDBGrid1.SelectedRows.Count>0 then
withDBGrid1.DataSource.DataSet do
fori:=0 toDBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
forj :=0 toFieldCount-1 do
begin
 
if(j>0)thens:=s+',';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:='';
end;
end;

Désolé pour l'indentation, l'aide est comme ca (Delphi 7 Enterprise).