Закладка в 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 не будет опубликован. Обязательные поля помечены *