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

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

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 2 214 • TDictionary Custom Sort 4 534 • Fast Watermark Sources 4 301 • 3D Designer 6 535 • Sik Screen Capture 4 560 • Patch Maker 5 068 • Айболит (remote control) 5 042 • ListBox Drag & Drop 4 001 • Доска для игры Реверси 92 033 • Графические эффекты 5 228 • Рисование по маске 4 285 • Перетаскивание изображений 3 544 • Canvas Drawing 3 895 • Рисование Луны 3 653 • Поворот изображения 3 202 • Рисование стержней 2 835 • Paint on Shape 2 118 • Генератор кроссвордов 2 920 • Головоломка Paletto 2 309 • Теорема Монжа об окружностях 3 058 • Пазл Numbrix 2 025 • Заборы и коммивояжеры 2 645 • Игра HIP 1 646 • Игра Go (Го) 1 569 • Симулятор лифта 1 856 • Программа укладки плитки 1 606 • Генератор лабиринта 2 013 • Проверка числового ввода 1 741 • HEX View 1 950 • Физический маятник 1 738