procedure DelRec(inSet:TDataSet);
beginif (NotEmptySet(inSet)) and// если таблица пуста - незачем выводить запрос
(Application.MessageBox('Удалить запись?','Внимание!!!',
mb_YesNo+mb_Iconquestion)=idYes) then
inSet.Delete;
end;
Статья Стандартный запрос на удаление записи в таблице раздела Базы данных Записи может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.