首页
社区
课程
招聘
[求助]会delphi的进来看下
发表于: 2009-4-25 23:31 3838

[求助]会delphi的进来看下

2009-4-25 23:31
3838
会delphi的大侠们来看下,刚学Delphi,按书上编译就是过不了下面是原代码,
Procedure tform1.button1click(sender:tobject);
Var
Number:integer;
Begin
Number:=strtoint(edit1.text);
Case number of
1,3,5,7,9:label2.caption:='奇数';
0,2,4,6,8:label2.caption:='偶数';
10..100:
Begion
Label2.caption:='在10到100之间';
form1.color:=clblue;
End;
Else
Label2.caption:='大于100或为负数';
end;
End;
我编译的时候总是提示Could not compile used unit'unit1.pas'。控件是一个编辑框,两个标签,一个按钮。这是我用手机发的代码可能不太标准,没办法家里没网线。大侠们给指点下吧

[课程]Android-CTF解题方法汇总!

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 204
活跃值: (23)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
不好意思了,自己太大意了少了个end版主把这贴删了吧
2009-4-25 23:34
0
雪    币: 199
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
jox
3
10..100:
Begion
Label2.caption:='在10到100之间';
form1.color:=clblue;
End; //这里不能有;
Else  //再说这个也需要if条件语句.你应该用错了吧
Label2.caption:='大于100或为负数';
end;
End;
2009-4-26 00:06
0
雪    币: 204
活跃值: (23)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
没有错呀,只要在最后加一个End.就可以了至于Else我前面用的是Case
2009-4-26 22:59
0
雪    币: 1505
能力值: (RANK:210 )
在线值:
发帖
回帖
粉丝
5
Begion
楼主装个cw吧
2009-4-27 00:33
0
游客
登录 | 注册 方可回帖
返回
//