DBGrid SelectedRows

[Sir Rufo]

Delphi-Quellcode:

var
  fld : TField;


  fld := DBGrid1.DataSource.DataSet.FieldByName('NUMBER');
  for i:=0 to DBGrid1.SelectedRows.Count-1 do
  begin
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
    ClearList.Add(fld.AsString);
  end;