Функция Locate

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Нижеследующая функция Locate может оказаться весьма полезной (конечно, она не может предложить вам глобальную функциональность типа чуствительность к регистрам, использование индексов, закладок, но все же…).

function Locate(const oTable: TTable; const oField:

TField; const sValue: string): Boolean;

var

bmPos: TBookMark;

bFound: Boolean;

begin

Locate := FALSE;

bFound := FALSE;

if not oTable.Active then

Exit;

if oTable.FieldDefs.IndexOf(oField.FieldName) < 0 then

Exit;

bmPos := oTable.GetBookMark;

with oTable do

begin

DisableControls;

First;

while not EOF do

if oField.AsString = sValue then

begin

Locate := TRUE;

bFound := TRUE;

Break;

end;

end;

end;

{/codecitation}

Добавить комментарий