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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

Зачатие п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;

{/codecitation}

Добавить комментарий