你在试试:
 if r1.checked and r3.checked then
   edit1.text:='a';
 if r1.checked and r4.checked then
   edit1.text:='b';
  if r2.checked and r3.checked then
   edit1.text:='c';
  if r2.checked and r4.checked then
   edit1.text:='d';
  改成这样你在试试!!!应该不会出问题的,原因在于你的每个if语句都有一个exit和end,去掉就没事了!!!!!! 
给分吧

解决方案 »

  1.   

    改正如下:
    begin
    if (r1.checked=true) and (r3.Checked=true)
    then begin edit1.text:='a'; exit; end;
    if (r1.checked=true) and (r4.Checked=true)
    then begin edit1.text:='b'; exit; end;
    if (r2.checked=true) and (r3.Checked=true)
    then begin edit1.text:='c'; exit; end;
    if (r2.checked=true) and (r4.Checked=true)
    then begin edit1.text:='d'; exit; end;
    end;用if...and...then,要加圆括号。
      

  2.   

    改正如下:
    begin
    if (r1.checked=true) and (r3.Checked=true)
    then begin edit1.text:='a'; exit; end;
    if (r1.checked=true) and (r4.Checked=true)
    then begin edit1.text:='b'; exit; end;
    if (r2.checked=true) and (r3.Checked=true)
    then begin edit1.text:='c'; exit; end;
    if (r2.checked=true) and (r4.Checked=true)
    then begin edit1.text:='d'; exit; end;
    end;用if...and...then,要加圆括号。
      

  3.   

    把所有的=true都去掉就行了。或者在每一个rx.checked=true前后加上();
    你的错误在与没有正确处理逻辑运算符的优先级。
      

  4.   

    建议用RadioGroup
    建议用RadioGroup
    建议用RadioGroup
    建议用RadioGroup