Функция Locate

Нижеследующая функция 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

[000368]