Devart Forums

Code: Select all

procedure RefreshQuery(Query: TDataSet;StorePos:boolean=true);
var
  BookMk: TBookmark;
  OldState:boolean;
begin
 if not (Query is TdxMemData) then
 begin
 
 OldState:=Query.active;
 try
  with Query do
  begin
    //DisableControls;
    try
      if Active and StorePos and not isempty then
      begin
        BookMk := GetBookmark;
      end
      else BookMk := nil;
      try
        Close;
        Open;

        //SetToBookmark(Query, BookMk);

        if BookMknil  then
        begin
         try
            GotoBookmark(BookMk);
         except
         end;
        end;

      finally
        if BookMk  nil then
        begin
          FreeBookmark(BookMk);
        end;
      end;
    finally
      //EnableControls;
    end;
  end;
 except
  Query.active:=OldState;

 end;
 end;
end;

Code: Select all

        Close;
        Open;