procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2: Integer;
begin
n1:=strtoint(inputbox('请输入','请输入武力指数','100'));
n2:=strtoint(inputbox('游戏关卡','你要闯第几关(1-3)','100'));
case n2 of 1:if(n1>=250) then
showmessage('游戏即将开始')
else
showmessage('第一关不是这种脚脚在玩的'+chr(13)+'肉脚回去苦练吧,哈哈哈哈'); 2: if(n1>=340)then
showmessage('勇者向第2关迈进吧')
else
showmessage('凭你还不够格!'); 3:if(n1>=510)then
showmessage('你有必死的觉悟吗?'+chr(13)+'好吧,魔王在等你了')
else
showmessage('少年仔爱惜生命吧!');
else
showmessage('不敢闯关吗!');end;end.
-------------------------------------------------
[错误] Unit1.pas(35): ';' expected but '.' found
[错误] Unit1.pas(37): Declaration expected but end of file found
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
var
n1,n2: Integer;
begin
n1:=strtoint(inputbox('请输入','请输入武力指数','100'));
n2:=strtoint(inputbox('游戏关卡','你要闯第几关(1-3)','100'));
case n2 of 1:if(n1>=250) then
showmessage('游戏即将开始')
else
showmessage('第一关不是这种脚脚在玩的'+chr(13)+'肉脚回去苦练吧,哈哈哈哈'); 2: if(n1>=340)then
showmessage('勇者向第2关迈进吧')
else
showmessage('凭你还不够格!'); 3:if(n1>=510)then
showmessage('你有必死的觉悟吗?'+chr(13)+'好吧,魔王在等你了')
else
showmessage('少年仔爱惜生命吧!');
else
showmessage('不敢闯关吗!');end;end.
-------------------------------------------------
[错误] Unit1.pas(35): ';' expected but '.' found
[错误] Unit1.pas(37): Declaration expected but end of file found
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
var
n1,n2: Integer;
begin
n1:=strtoint(inputbox('请输入','请输入武力指数','100'));
n2:=strtoint(inputbox('游戏关卡','你要闯第几关(1-3)','100'));
case n2 of 1:if(n1>=250) then
showmessage('游戏即将开始')
else
showmessage('第一关不是这种脚脚在玩的'+chr(13)+'肉脚回去苦练吧,哈哈哈哈'); 2: if(n1>=340)then
showmessage('勇者向第2关迈进吧')
else
showmessage('凭你还不够格!'); 3:if(n1>=510)then
showmessage('你有必死的觉悟吗?'+chr(13)+'好吧,魔王在等你了')
else
showmessage('少年仔爱惜生命吧!');
else
showmessage('不敢闯关吗!'); end;
end;end.