delphi radiogroup

Question

数据库中的值为 审核
radiogroup有几个选项
审核
弃审
完成
取消完成如何使数据中的值和radiogroup值相等的被选取中

Answer 1

if SameText(FieldValue, '审核') then radioGroup1.ItemIndex := 0;
if SameText(FieldValue, '弃审') then radioGroup1.ItemIndex := 1; 
if SameText(FieldValue, '完成') then radioGroup1.ItemIndex := 2; 
if SameText(FieldValue, '取消完成') then radioGroup1.ItemIndex := 3;

Answer 2

radiogroup1.ItemIndex :=radiogroup1.Items.IndexOf(ADOQuery1.FieldByName('field1').asString);