学习RadioGroup1,GroupBox1组件使用,代码见下,想要得到结果,点“提交”没有反应,FW们帮看看如何修改?(20)

  • 主题发起人 主题发起人 楚辞
  • 开始时间 开始时间
楚

楚辞

Unregistered / Unconfirmed
GUEST, unregistred user!
代码:Procedure Tfrom1.Button1Click(Sender:TObject);Var choice,result:String;BeginIf RadioGroupBox1.itemindex <>-1 thenBeginCase RadioGroupBox1.itemindex of0:choice:=’龙虾’;1:choice:=’青蟹’;2:choice:=’ 鲍鱼’;End;Result:=’您选择了’+choice;If CheckBox1.Checked then result:=result+’、酱油’;If CheckBox2.Checked then result:=result+’、芥末’;If CheckBox3.Checked then result:=result+’、醋’;EndElseEdit1.text:=’您没有点击任何海鲜。’;End;想要得结果:edit1文件框里出现：您选择了青蟹，酱油，芥沫,可是我“提交”后程序没有反应直接点提交按钮，倒正常。
 
可是我“提交”后程序没有反应直接点提交按钮，前面那个提交是怎么提交啊
 
所说"提交"是指按钮的名字button1(caption:提交（&R）).就是编译后,点"提交"按钮.程序没有反应
 
所有Result:=。。。;//改Edit1.text:=。。。。
 
那直接点提交按钮，倒正常。这个是什么?
 
"那直接点提交按钮，倒正常"。这个是指程序的文本框里能正常显示，"您没有点击任何海鲜。"按照：41426277修改，程序正常，EDIT1文本框里显示：你选择了青蟹，而也选了醋，可是没有显示出来。
 
后面我也选择了"醋",可是"醋"没有显示
 
If CheckBox3.Checked then result:=result+’、醋’;End你可以在这两句中间加上edit1.text:=result;这样就不用每行都改Result:=。。。;//改成edit1.text了 你可以自己设置断点，在左边点鼠标，看看断点走到那行代码没，为什么没显示，也许走了，那就是你edit框太短，要不就是什么原因没走到那里
 
"自己设置断点,在左边点鼠标,"然后点F9,看后面是否停在哪是这样操作吗?EDIT1框不短这个我试过了.
 
Case RadioGroup1.itemindex of0:choice:='龙虾';1:choice:='青蟹';2:choice:=' 鲍鱼';End;edit1.Text :='您选择了'+choice;If CheckBox1.Checked then result:=result+'、酱油';edit1.text:=result; If CheckBox2.Checked then result:=result+'、芥末';edit1.text:=result;If CheckBox3.Checked then result:=result+'、醋';edit1.text:=result;End哎,修改后,前面的edit1.Text :='您选择了'+choice;这句不执行了,执行到后面的"酱油'醋,芥末了.
 
跟踪代码后,2:choice:=' 鲍鱼';End;//这句打叉,应该是提示没有执行吧!edit1.Text :='您选择了'+choice;
 
End;//这句打叉,应该是提示没有执行吧!这句应该不用执行，接着应该执行edit1.Text :='您选择了'+choice;按F8单步运行，f9只执行你设断点的那行
 
按F8试了试,还是没有找到错误的句子.不过后来想了想,应该是这句有问题,edit1.Text :='您选择了'+choice; 将其修改成了result:='您选择了'+choice;其他如上不变,就达到了想要的结果.谢谢诸位了!
 
分给错了!!!!.kunwyf12345,明天我在开个贴,你回复下,重新给你给分.
 
您必须登录或注册才可回复。
后退
顶部