求解释
if Checklinefuntest(SetfocusCell, CBox_Line.Text) then
Adq_CBar_F.FieldByName('FunTest').AsString := 'N'
else
Adq_CBar_F.FieldByName('FunTest').AsString := 'Y';

[解决办法]
这代码刚才看见过..................
Checklinefuntest没代码不知道
Adq_CBar_F可能是个adoquery之类的数据库查询组件
这里是根据函数返回值给他的字段FunTest赋值N或Y