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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::02548

Взято из http://forum.sources.ru