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

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

Зачатие п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 (Тетрис) 406 • TDictionary Custom Sort 3 530 • Fast Watermark Sources 3 269 • 3D Designer 5 034 • Sik Screen Capture 3 528 • Patch Maker 3 735 • Айболит (remote control) 3 938 • ListBox Drag & Drop 3 190 • Доска для игры Реверси 83 088 • Графические эффекты 4 152 • Рисование по маске 3 421 • Перетаскивание изображений 2 795 • Canvas Drawing 2 957 • Рисование Луны 2 745 • Поворот изображения 2 368 • Рисование стержней 2 241 • Paint on Shape 1 642 • Генератор кроссвордов 2 326 • Головоломка Paletto 1 833 • Теорема Монжа об окружностях 2 350 • Пазл Numbrix 1 725 • Заборы и коммивояжеры 2 108 • Игра HIP 1 319 • Игра Go (Го) 1 272 • Симулятор лифта 1 519 • Программа укладки плитки 1 264 • Генератор лабиринта 1 596 • Проверка числового ввода 1 409 • HEX View 1 554 • Физический маятник 1 396