Delphi-PRAXiS - Delphi DBGrid - alle Zeilen markieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi DBGrid - alle Zeilen markieren (https://www.delphipraxis.net/11735-dbgrid-alle-zeilen-markieren.html)

DBGrid - alle Zeilen markieren

Hallo Leute,

ich zeige gefilterte Daten in einem DBGrid an. Wie kann ich alle angezeigten Datensätze am einfachsten markieren (in der Art: DBGrid.SelectAll) ?

mfg
eddy

Re: DBGrid - alle Zeilen markieren

Hallo Leute,

jetzt beantworte ich schon meine eigenen Fragen (für den Fall, daß mal jemand auch so ein Problem hat):

Delphi-Quellcode:

			procedure TFKasse.AllesMarkieren1Click(Sender: TObject);

var

  tmpBookmark: TBookMark;

  i : integer;

begin

  tmpBookmark := TBookmarkList.Create(dbgArt1);

  dbgArt1.DataSource.DataSet.First;

  for i := 0 to dbgArt1.DataSource.DataSet.RecordCount -1 do begin

    dbgArt1.SelectedRows.CurrentRowSelected:=True;

    dbgArt1.DataSource.DataSet.Next;

  end;

  tmpBookmark := dbgArt1.SelectedRows;

end;

mfg
eddy

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]