TClientDataSet Alle markierten Felder auf den Wert x setzen?

[eddy]

Hallo mr47,

so ist das eben, wenn man das Zeug nicht selber testet!

Hier ein funktionsfähiges Beispiel, soeben erfolgreich probiert:

Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  zel : integer;
  s : string;
begin
  zel := dbg1.SelectedRows.Count;
  if zel = 0 then exit;

  Tab1.DisableControls;
  Tab1.Last;
  while not Tab1.Bof do begin
    if dbg1.SelectedRows.CurrentRowSelected then begin
      // Aktion mit den ausgewählten Datensätzen ausführen
      // hier: Lösche den gewählten Satz
      Tab1.Delete;
    end;
    Tab1.Prior;
  end;
  Tab1.EnableControls;
end;

Viel Erfolg!

mfg
eddy