Mehrere Datensätze löschen

[DeddyH]

Ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    s: string;
    first: Boolean;
    SQL: string;
begin
  s := '';
  first := true;
  for i := 0 to ListView1.Items.Count - 1 do
    if ListView1.Items[i].Checked then
      begin
        if first then
          s := inttostr(i) //statt i hier eben die ID des Eintrags
        else
          s := s + Format(',%d',[i]); //s.o.
        first := false;
      end;
  if Length(s) > 0 then
    begin
      SQL := Format('DELETE FROM adressbuch WHERE ID IN(%s)',[s]);
      ShowMessage(SQL);
    end;
end;