DBGrid nur markierte Datensätze löschen

[Quake]

Hallo,

ich möchte nur die markierten Datensätze aus einem DBGrid löschen. Dazu verwende ich folgenden Code:

Delphi-Quellcode:

while MyGrid.SelectedRows.Count>0 do
begin
  if MyDataSet.BookmarkValid(pointer(MyGrid.SelectedRows.Items[0]))then
  begin
    MyDataSet.GotoBookmark(pointer(MyGrid.SelectedRows.Items[0]));
    MyDataSet.Delete;
  end;
  MyGrid.SelectedRows.Refresh;
end;

Das dumme daran ist nur, dass MyGrid.SelectedRows.Count trotz des Refresh nicht ändert. :gruebel: Irgendwann kommt dann immer eine Exception 'Datensatz nicht gefunden', was auch logisch ist da MyGrid.SelectedRows.Count ja nie weniger wird.

Und dieser Code funktioniert in meinem Fall genauso wenig.

Delphi-Quellcode:

for i:=0 to MyGrid.SelectedRows.Count-1 do
begin
  if MyDataSet.BookmarkValid(pointer(MyGrid.SelectedRows.Items[i]))then
  begin
    MyDataSet.GotoBookmark(pointer(MyGrid.SelectedRows.Items[i]));
    MyDataSet.Delete;
  end;
  MyGrid.SelectedRows.Refresh;
end;

ciao Martin

[Sourcemaker]

Hallo Martin,

ich würde die markierten Datensätze erst in ein Array kippen und anschließend an Hand des Arrays
löschen das macht dich unabhängig von irgendwelchen unzuverlässigen DataSet- oder DBGrid-Refresh-
routinen.

Grüße

Frank

[Stevie]

Hallo Martin

Delphi-Quellcode:

begin
  DBGrid1.DataSource.DataSet.DisableControls;
  while DBGrid1.SelectedRows.Count > 0 do
  begin
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows[0]));
    DBGrid1.DataSource.DataSet.Delete;
    DBGrid1.SelectedRows.Refresh;
  end;
  DBGrid1.DataSource.DataSet.EnableControls;
end;

MfG
Stevie

[Quake]

@Stivie: Das funktioniert auch nicht da das ja nur eine etwas andere Schreibeweise ist wie mein Code.
MyGrid.DataSource.DataSet ist das Gleich wie MyDataSet.

[Quake]

Moin moin,

ich bin jetzt über den Hinter am Knie vorbei zum Herz gegangen :coder: :wall:. Es geht halt nicht anders (zu mindes in meinem Fall). Ich habe es so ähnlich gemacht, wie Frank es vorgeschlagen hat.
1. Erzeugen einer TList
2. Speichern aller Datensatz-IDs (primary key)
3. Alle Datensätze löschen die in der Liste vermerkt sind.

Trotzdem Danke an euch.

ciao
Martin