Delete SQL

[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.