15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как обновить TQuery не потеряв при этом текущей записи

procedure RefreshQuery(AQuery : TQuery; const FieldsForSearch: String);
var
  AList : TList;
  AVarArray : Variant;
  i : Byte;
begin
  AList := TList.Create;
  try
    AQuery.GetFieldList(AList, FieldsForSearch);
    AVarArray := VarArrayCreate([0, AList.Count - 1], varVariant);
    for i := 0 to Pred(AList.Count) do
      AVarArray[i] := TField(AList.Items[i]).AsVariant;
    AQuery.Close;
    AQuery.Open;
    AQuery.Locate(FieldsForSearch, AVarArray, []);
  finally
    AList.Free;
    AVarArray.Free;p
  end;
end;