Delphi 中实现不精确查找！

Question

{我的原意是不区分大小写，但是事与愿违!
 在下向各位请教！多谢！
 Version Delphi5.0
 OS Windows98}
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with table1 do
  begin
  label3.Caption :='';
  setkey;
  fieldbyname('Name').asstring:=Edit1.text;
  gotonearest;
  label3.caption:=fieldbyname('E_mail').asstring;
  end;
end;

Answer 1

参考：
TTable.Locate
应该可以满足你的要求

Answer 2

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with table1 do
  begin
  label3.Caption :='';
  setkey;
  locate('Name',edit1.text,[])
  gotonearest;
  label3.caption:=fieldbyname('E_mail').asstring;
  end;
end;

Answer 3

function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions
): Boolean;If Options contains the loCaseInsensitive setting, then Locate ignores case when matching fields.