Как обновить 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