[DOR]

Справки нет. Вот так пытаюсь удалить, соответственно удаляет только 1 строку.

Код:

procedure Tf_ABP.N11Click(Sender: TObject);
var myQ: TADOQuery;
begin
          myQ := TADOQuery.Create(nil);
          myQ.Connection := DataModule1.ADOConnection1;
          myQ.SQL.Clear;
          myQ.Parameters.Clear;
          myQ.sql.Text := 'Delete From AVR_List Where ID = :ID_AVR_List';
          myQ.Parameters.ParamByName('ID_AVR_List').Value := Q_AVR_List.FieldByName('ID').Value;
          myQ.ExecSQL;
          myQ.Close;
          Q_AVR_List.Requery();
end;