Mit Multiselect im DBGrid markierte Zeilen löschen

[egon.kaschuba]

Hallo !

Also ,da möchte ich aus einem DBGrid mit Multiselect verschiedene Zeilen
mit dem " Multiselect-Punkt " versehen und dann anschließend löschen.

In der Option ist Multiselect auf True gesetzt.
Funktioniert aber nicht.

Probiert habe ich das mal so ...

var i : Integer;

procedure TForm1.ButtonClick(Sender: TObject);
var mehrDaten : Boolean;

begin

if i < Form1.DBGrid1.SelectedRows.Count) then
Form1.Table1.Boockmark := Form1.DBGrid1.SelectedRows[i];
inc(i);
MehrDaten := (i <= Form1.DBGrid1.SelectedRows.Count);
end;

Wo mache ich den Fehler?
Und wer kann mie helfen ??

Gruß
-Egon