你可以用FieldByName('').AsString来完成.
FieldValues['']好像得到的是variant类型的,如果是两个字段间赋值这样用没有问题,主要是你把FieldValues赋给了Edit.text.从Variant到String你没有进行类型转化。也可以写为:
Edit1.text := String(AdoQry.Fieldvalues['aaa'])仅是意见,没有上机运行!!