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

[Defender42]

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

if form1.LsT.RecordCount <=0 then
 begin
  ShowMessage('Удаление не возможно! Отсутствуют записи!');
  exit;
 end;
if Application.MessageBox('Вы действительно хотите удалить?!','Удаление', MB_ICONQUESTION + MB_YESNO) = mrYes then
 
form1.Lst.Delete;
 
form10.Query1.Active:= false;
form10.Query1.Active:= true;

вот код на удаления.

[Serge_Bliznykov]

что значит - "выбранная" запись? Кем и где выбранная?
по приведённому Вами фрагменту этого не видно.

[Defender42]

т.е. Я в гриде выбираю запись(ставлю на нее курсор) которую надо удалить, но удаляется любая другая запись.

[Defender42]

решил проблему функцией locate

  form1.LsT.Locate('ID',query1.FieldValues['l_id'],[]);

[Serge_Bliznykov]

т.е. Я в гриде выбираю запись(ставлю на нее курсор) которую надо удалить, но удаляется любая другая запись.

решил проблему функцией locate

  form1.LsT.Locate('ID',query1.FieldValues['l_id'],[]);

проблема у Вас была в том, что в гриде вы отображали данные из Query1,
а Lst с гридом НИКАК вообще не связано!

p.s. я бы рекомендовал или в гриде отображать данные из LsT, либо удалять данные запросом (через 'Delete from ВашаТаблица where ID = '+query1.FieldValues['l_id']');

p.p.s. впрочем, Ваше решение тоже вполне себе нормальное и рабочее. Если Вас всё устраивает, можете его и оставить...

[Defender42]

p.s. я бы рекомендовал или в гриде отображать данные из LsT, либо удалять данные запросом (через 'Delete from ВашаТаблица where ID = '+query1.FieldValues['l_id']');

раньше так и было,но мне надо нужен был в гриде адрес полностью прописан,а не Id из другой таблицы,пришлось добавлять квери

Сообщение от Serge_Bliznykov

проблема у Вас была в том, что в гриде вы отображали данные из Query1,
а Lst с гридом НИКАК вообще не связано!



p.p.s. впрочем, Ваше решение тоже вполне себе нормальное и рабочее. Если Вас всё устраивает, можете его и оставить...

Я пытался сделать через SQL,но Delphi ругался на .asString