Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
Delphi XE Professional
|
Re: Mehrere Datensätze löschen
16. Nov 2007, 15:21
Ungetestet hingeklatscht:
Delphi-Quellcode:
var
i: integer;
s: string;
begin
s := 'delete from table where id in (';
for i := 0 to listview.items.count - 1 do
if listview.items[i].checked then
if i = listview.items.count - 1
s := s + inttostr(i)
else
s := s + inttostr(i) + ',';
s := s + ')';
// s sollte hier deine lösch-Abfrage sein.
end;
|