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

Советы » Записи, индексы, поля, закладки » Стандартный запрос на удаление записи в таблице

procedure

DelRec(inSet:TDataSet); begin

if

(NotEmptySet(inSet)) and

// если таблица пуста - незачем выводить запрос (Application.MessageBox('Удалить запись?','Внимание!!!', mb_YesNo+mb_Iconquestion)=idYes) then

inSet.Delete; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com