DELPHI/Часто задаваемые вопросы и ответы на них/Разработка баз данных

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

Источник получения информации: http://www.delphiworld.narod.ru