cbys.net
当前位置:首页 >> DElphi CAsE oF ElsE >>

DElphi CAsE oF ElsE

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

var A: integer; B, C, D: Double;begin A := StrToIntDef(edit1.text, 0); B := StrToFloatDef(edit2.text, 0); if ComboBox1.itemindex = -1 then label1.Caption := '估算价:'; if A

您的case a of '人事部': '财务部': '技术部': 是不对呀,case a of 这个的a只能是整型数字呀!您可以这样做,用ComboBox1.ItemIndex属性来做: i:= ComboBox1..ItemIndex; case i of 0: ADOTable1.FieldByName('pid').AsString:= '0';//对应***...

//Delphi里是case...of...elsevarage:Integer;str:String ;begin age:=18; case age of 18:str:="我今年18岁"; else:str:="我今年不是18岁"; end;end;

delphi 10前的好像都不行,最新的版本不知道,case 只能数字或字符,case 0:case1:case 'a': 字符串不行,你这个是系统消息,应该有-1,1,0这类信息编号的吧

示例一个函数如下: function IsCnChar( UCP : UCS4Char ) : Integer; begin Result := 0; // 缺省不是汉字 case UCP of $3400..$4DB5: Result := 1; // CJK 扩展A $3007, $4E00..$9FCB: Result := 2; // CJK 基本集 $E815..$E864: Result := 3;...

Case 语句 If...Then…Else 语句适合选项较少的情况,如果有很多选项的话利用If 语句就比较麻烦,在这种情况下,Case 语句就容易多了。Case 语句的语法如下: case of :; :; else ; end; 下面这个例子中的S 为Char 类型。当用户输入一个字符后按...

case i of 不是 case i if of 和 if 是两回事。

The case statement case I of 1..5: Caption := 'Low'; 6..9: Caption := 'High'; 0, 10..99: Caption := 'Out of range'; else Caption := ''; end;

case是个分支语句。就是按照case ... of 中间的那个内容,对应是什么,就运行那个后面的语句。比如succ(sun)表示sun后面的那个元素,就应该是 mon 。然后case mon of,就是只运行mon后面的那个语句,也就是write('monday');然后就跳到end后面了。

网站首页 | 网站地图
All rights reserved Powered by www.cbys.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com