Удаление записей

[Eugene_Stoun]

Всем, Доброго времени суток!
Проблема такая: никак не могу сделать удаление выбранных записей из таблицы. Написал запрос, но при выборе записей из DBGrid удаляет только одну. Подскажите, что не так???

procedure TForm1.Button6Click(Sender: TObject);
var
  del,i,j,d,idn:Integer;
  s:string;
begin
if ADOConnection1.Connected=true then
del:=MessageBox(handle, PChar('Внимание! Вы действительно хотите удалить записи\файлы?'),
PChar('Удаление записей'), MB_ICONWARNING + MB_YESNO + MB_DEFBUTTON2);
case del of
idno:begin
ADOquery1.Active:=false;
end;
idyes:begin
if DBGridEh1.SelectedRows.Count>0 then
with DBGridEh1.DataSource.DataSet do
for i:=0 to DBGridEh1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGridEh1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s;
s:=Fields[9].AsString;
idn:=Fields[0].AsInteger;
end;
Listbox1.Items.Add(s);

end;
begin
  for d:=0 to ListBox1.Items.Count-1 do
      if FileExists (ListBox1.Items.Strings[d]) then
      begin
      DeleteFile(PChar(ListBox1.Items.Strings[d]));
ADOQuery1.Close;
ADOQuery1.SQL.Text:='Delete * from Карточки_учета WHERE Код_Карточки=:ID';
ADOQuery1.Parameters.ParamByName('ID').Value :=IntToStr(idn);
ADOQuery1.ExecSQL;
end;
end;
end;
end;
ListBox1.Clear;
end;

[xxbesoxx]

не могу сделать удаление выбранных записей из таблицы. Написал запрос, но при выборе записей из DBGrid удаляет только одну

Удаляет все выбранный данных , не имеет значение это вы будите выбрать через ComboBox или ListBox1

procedure TForm1.Button1Click(Sender: TObject);
var 
  n: longint;
begin
  ADOQuery1.Last;
  for n := ADOQuery1.RecordCount downto 1 do
  ADOQuery1.Delete;
end;

Дальше вы смотрите ваши код....... зачем это 9 этажный ненужной код и причем тут DBGridEh1 ? не понятно

[Eugene_Stoun]

Спасибо) Вопрос решен

[Аватар]

Во-первых у ТС удаление не всех, а отмеченных
Во-вторых ADOQuery1.Delete далеко не всегда прокатит

[xxbesoxx]

Во-первых у ТС удаление не всех, а отмеченных

Да друг "Отмеченых-выбранных" это код удаляет только выбранный , На пример только (Кофе) проверяйте https://yadi.sk/d/B9Taob0vfuFuK

Во-вторых ADOQuery1.Delete далеко не всегда прокатит

Если связь между таблицы и нету on cascade delete- каскадное удаление ... конечно не прокатит. Это пример из книги "Самоучитель Delphi .NET
Анатолий Хомоненко "