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

; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com