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