Programalama > DELPHI

function GotoData (const lTable: TTable;
                   const lField: TField;
                   const lValue: String) : Boolean;
var bMark : TBookMark;
    sPart : string
begin
 Result := False;
 if not lTable.Active then Exit;
 if lTable.FieldDefs.IndexOf(lField.FieldName)
  < 0 then Exit;
 bMark := lTable.GetBookMark;
 With lTable do begin
   DisableControls;
   try
     First;
     While not EOF do begin
       spart:=Copy(lField.AsString,1,Length(lValue));
       if LowerCase(spart) = LowerCase(lValue) then
       begin
         Result := True;
         Break;
       end
       else Next;
     end; {while}
   finally
     EnableControls;
   end; {try}
 end; {with}
 if (Not Result) then lTable.GotoBookMark(bMark);
 lTable.FreeBookMark(bMark);
end;