你在试试:
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,去掉就没事了!!!!!!
给分吧
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,去掉就没事了!!!!!!
给分吧
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,要加圆括号。
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,要加圆括号。
你的错误在与没有正确处理逻辑运算符的优先级。
建议用RadioGroup
建议用RadioGroup
建议用RadioGroup