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