Zitat von
wicht:
Ungetestet hingeklatscht:
Delphi-Quellcode:
var
i: integer;
sql:
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;
Werds testen, verstanden hab ich es, aber s soll entweder
sql heißen oder s ist nicht definiert.^^