![](styles/elise/misc/quote_24x24.png)
Zitat von
DeddyH:
Delphi-Quellcode:
procedure TForm4.delete_btnClick(Sender: TObject);
var
i: integer;
begin
//ADOQuery1.Open;
ADOQuery1.SQL.Text := 'delete from `lehrer` where `lehrer` = :lehrer';
for i := lehrer_list.Items.Count - 1 downto 0 do
if lehrer_list.Selected[i] then
begin
ADOQuery1.Parameters.ParamByName('lehrer').AsString := lehrer_list.Items[i];
ADOQuery1.ExecSQL;
lehrer_list.Items.Delete(i);
end;
end;
Ungetestet.
Also bei der funktion, habe ich statt Asstring , name und einmal displayname eingefügt. bei name wurde der wert in der datenbank nur um einen nach oben geschoben.
bei displayname wurde der makierte wert in der dbgrid gelöscht.
hm...