Question

delphi中的case of语句

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=strtofloat(Edit1.text);
case i of
1:caption:='1';
2:caption:='2';
else
caption:='';
end;
end;

end.
是我搞错了，case 中间的语句必须为整型
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=strtoint(edit1.text);
case i of
1:button1.caption:='1';
2:button1.caption:='2';
else
button1.caption:='严重错误';
edit1.Color:=clred;
end;
end;

end.

Answer 1

case 使用必须为整型或者是集合类型腔掘敏，这点和C#的Switch是散敏有区别的伍枝：）

Answer 2

呵呵.....

else后面最好加上begin... end;毕竟,你写的不止一句