delphi中的case of语句

Posted 2023-03-28

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.

参考技术A case 使用必须为整型或者是集合类型，这点和C#的Switch是有区别的：） 参考技术B 呵呵.....

else后面最好加上begin... end;毕竟,你写的不止一句本回答被提问者采纳