数据集中没有相应字段不报错解决方法

数据集中没有相应字段不报错
JSR:=ADOQuery1.FieldByName('jsr').Value;
如查ADOQuery1没有jsr字段，我希望不报错并且jsr='' 如何操作;

[解决办法]

Delphi(Pascal) code

if ADOQuery1.FindField['jsr'] <> nil then  JSR := ADOQuery1.FieldByName('jsr').Valueelse  JSR := ''
[解决办法]
if Assigned(Adoquery1.findField('jsr')) then