取值
怎样获得qry1.SQL.Text:='select brxm from zysf_zydj where tmh='+edt1.Text的值

[解决办法]
Open以后，FieldByName('brxm').AsString;
[解决办法]

Delphi(Pascal) code

qry1.close;qry1.SQL.Text:='select brxm from zysf_zydj where tmh='+quotedstr(edt1.Text);qry1.open;edit2.text:=qry1.fieldbyname('brxm').asstring;