Внести изменения в набор данных и не потерять текушей позиции

procedure TMyForm.MakeChanges;
var
  aBookmark: TBookmark;
begin
  Table1.DisableControls;
  aBookmark := Table.GetBookmark;
  try
    {ваш код}
  finally
    Table1.GotoBookmark(aBookmark);
    Table1.FreeBookmark(aBookmark);
    Table1.EnableControls;
  end;
end;

Похожие по теме исходники

Экспорт баз данных в Excel

База данных "Книжный магазин"

База данных Видеофильмов

База данных "Школа"

База данных без BDE

База данных студентов

Фильтрование данных

Pevrica (сжатие данных)

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 182 • TDictionary Custom Sort 3 355 • Fast Watermark Sources 3 108 • 3D Designer 4 862 • Sik Screen Capture 3 361 • Patch Maker 3 565 • Айболит (remote control) 3 675 • ListBox Drag & Drop 3 032 • Доска для игры Реверси 81 797 • Графические эффекты 3 958 • Рисование по маске 3 268 • Перетаскивание изображений 2 641 • Canvas Drawing 2 771 • Рисование Луны 2 597 • Поворот изображения 2 207 • Рисование стержней 2 177 • Paint on Shape 1 576 • Генератор кроссвордов 2 250 • Головоломка Paletto 1 777 • Теорема Монжа об окружностях 2 246 • Пазл Numbrix 1 691 • Заборы и коммивояжеры 2 065 • Игра HIP 1 285 • Игра Go (Го) 1 235 • Симулятор лифта 1 481 • Программа укладки плитки 1 224 • Генератор лабиринта 1 553 • Проверка числового ввода 1 372 • HEX View 1 502 • Физический маятник 1 362