Delphi вики
Advertisement

Обновление записей с сохранением позиции курсора

var MyBookMark: TBytes;
begin
  With ADOQuery do
  begin
    MyBookMark:=GetBookmark;
    DisableControls;
    Close;
    Open;
    GotoBookmark(MyBookMark);
    EnableControls;
    FreeBookMark(MyBookMark);
  end;
end;
var MyBookMark: TBytes;
begin
  With ADOQuery do
  begin
    MyBookMark:=GetBookmark;
    DisableControls;
    Close;
    Open;
    GotoBookmark(MyBookMark);
    EnableControls;
    FreeBookMark(MyBookMark);
  end;
end;
Advertisement