dbgrid multiselect, selektierte ids erhalten ?

[marabu]

Noch eine Variante:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
  ds: TDataSet;
  bm: TBookmark;
  s: TStrings;
begin
  s := TStringList.Create;
  ds := DBGrid.DataSource.DataSet;
  ds.DisableControls;
  bm := ds.GetBookmark;
  with DBGrid.SelectedRows do
    for i := 0 to Pred(Count) do
    begin
      ds.GotoBookmark(Pointer(Items[i]));
      s.Add(ds.FieldByName('NAME').AsString);
    end;
  ds.GotoBookmark(bm);
  ds.FreeBookmark(bm);
  ds.EnableControls;
  ShowMessage(s.Text);
  s.Free;
end;

Grüße vom marabu