Стандартный запрос на удаление записи в таблице Автор: Галимарзанов Фанис Зачатие п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; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
procedure DelRec(inSet:TDataSet); begin if (NotEmptySet(inSet)) and // если таблица пуста - незачем выводить запрос (Application.MessageBox('Удалить запись?','Внимание!!!', mb_YesNo+mb_Iconquestion)=idYes) then inSet.Delete; end;