一个简单的问题大家看看！

Question

http://expert.csdn.net/Expert/topic/2919/2919063.xml?temp=.1306269

Answer 1

应该是系统得问题
不行了装Delphi得补丁
 s:=Trim(ADOQuery1.FieldByName('Field1').AsString);
   if s='正确' then
    begin
     RzCheckBox2.Checked:=True;
    RzCheckBox3.Checked:=False;
    end
    else
    begin
    RzCheckBox2.Checked:=False;
    RzCheckBox3.Checked:=true;
  
    end;

Answer 2

s:=Trim(ADOQuery1.FieldByName('Field1').AsString);
  if s = '正确' then
  begin
    RzCheckBox2.Checked := True ;
    RzCheckBox3.Checked := False ;
  end  
  else if s = '错误' then
  begin
    RzCheckBox2.Checked := False ;
    RzCheckBox3.Checked := True ;
  end
  else 
  begin
    RzCheckBox2.Checked := False ;
    RzCheckBox3.Checked := False ;
  end ;