delphi数据集查找不定位

Posted 2022-05-27 jijm123

procedure TForm1.Button2Click(Sender: TObject);
var
  R: Variant;
begin
  R := MemTableEh1.Lookup(‘Name‘,Edit1.Text,‘Name‘);
  if not VarIsNull(R) then ShowMessage(R);
end;