Как обновить TQuery не потеряв при этом текущей записи
Как обновить TQuery не потеряв при этом текущей записи
Как обновить 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; Источник: http://www.sources.ru
