Question

delphi case使用

好久没弄过DELPHI了，好多东西忘了，如图所示，先在Edit1输入一个整数，然后在旁边选择 乘以百分之多少 然后点击计算之后 Edit2就显示结果，这么做？思路是有，但很久没做忘了语法以及步骤。谁帮我下吧。

Answer 1

先定义一个数组 rate: array [0 .. 4] of integer (100, 95, 80, 70, 50)
edit1.text * rate[radigroup.itemindex]/100

Answer 2

var
ff:real;//
begin
//如果哪个单选按钮组件是radioGroup的话
case RadioGroup1.ItemIndex of
0: ff:=1;
1: ff:=0.95;
2: ff:=0.8;
3: ff:=0.7;
else
ff:=0.5;
end;
edit3.Text:=floattostr(ff*strtofloat(edit1.Text));
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
bfb: real;
begin
bfb := 0;
case RadioGroup1.ItemIndex of
0: bfb := 1;
1: bfb := 0.95;
2: bfb := 0.8;
3: bfb := 0.7;
4: bfb := 0.5;
end; //以上代码确定选择要乘的百分数
Edit2.Text:=floattostr(bfb * strtofloat(Edit1.Text)); //输出结果
end;

Answer 4

相比,一楼的数组更简单。