Советы по Delphi

         

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


Галимарзанов Фанис советует:

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

[000793]



Содержание раздела