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