Закладка в Dataset

Задача :
Поcтавить закладку, пробежаться по всей таблице и вернуть курсор на место закладки.
Решение :
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»]
procedure TForm1.SomeDBOperations;
var b: string;
begin
b := myGrid.DataSource.DataSet.Bookmark;
myGrid.DataSource.DataSet.DisableControls;
{какие-то операции с Table1}
…..
…..
myGrid.DataSource.DataSet.EnableControls;
myGrid.DataSource.DataSet.Bookmark := b;
end;
[/cc]

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

Ваш адрес email не будет опубликован. Обязательные поля помечены *