Question

delphi 中 case of 使用问题

以下代码哪里错了？按F8编译就出现Undeclared identifier:'2'
procedure TForm1.Button1Click(Sender: TObject);
var
n1 : integer;
n2:integer;
begin
n1 := strToint(inputbox('武力指数','武力: ','000'));
n2 := strToint(inputbox('游戏关卡','选关(1-3) ','0'));
case n2 of
1:
if(n1>=200) then
showmessage('游戏开始');
else
showmessage('回去吧，小子');
2:
if(n1>=350) then
showmessage('进入第二关');
else
showmessage('你还不够格，回去吧');
3:
if(n1>550) then
showmessage('最后的冲刺');
else
showmessage('小朋友，爱惜生命吧');
else
showmessage('不敢玩吗');
end;
end;

end.

Answer 1

else的前面不能加分号的