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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

procedure TMyForm.MakeChanges;

var

aBookmark: TBookmark;

begin

Table1.DisableControls;

aBookmark := Table.GetBookmark;

try

{ваш код}

finally

Table1.GotoBookmark(aBookmark);

Table1.FreeBookmark(aBookmark);

Table1.EnableControls;

end;

end;

{/codecitation}

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