Функция 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]

Содержание раздела