Mehrere Datensätze löschen

[DeddyH]

Die ID ist die Beschriftung des ListItems? Dann ist das ja einfach.

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 := ListView1.Items[i].Caption 
        else
          s := s + Format(',%s',[ListView1.Items[i].Caption]); 
        first := false;
      end;
  if Length(s) > 0 then
    begin
      SQL := Format('DELETE FROM adressbuch WHERE ID IN(%s)',[s]);
      ShowMessage(SQL); //hier dann halt ausführen
    end;
end;