procedure TForm1.getAnswer; var answer : string; begin answer:=sdsTk.FieldsByName('answer').AsString; if answer='A' then rbA.Checked; if answer='B' then rbB.Checked; if answer='C' then rbC.Checked; if answer='D' then rbD.Checked; end; //其中sdsTk是TSimpleDataSet组件(dbexpress中的),rbA,rbB...是RadioButton
var answer : string;
begin
answer:=sdsTk.FieldsByName('answer').AsString;
if answer='A' then rbA.Checked;
if answer='B' then rbB.Checked;
if answer='C' then rbC.Checked;
if answer='D' then rbD.Checked;
end;
//其中sdsTk是TSimpleDataSet组件(dbexpress中的),rbA,rbB...是RadioButton
answer:=trim(sdsTk.FieldsByName('answer').AsString);