Стандартный запрос на удаление записи в таблице

Зачатие пpогpаммеpа:
1. Connect
2. Download
3. Disconnect
4. UnRar (ETA: 9 месяцев)

procedure DelRec(inSet:TDataSet);
begin
  if (NotEmptySet(inSet)) and // если таблица пуста - незачем выводить запрос
    (Application.MessageBox("Удалить запись?","Внимание!!!",
    mb_YesNo+mb_Iconquestion)=idYes) then
    inSet.Delete;
end;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Стандартный запрос на удаление записи в таблице", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!