kwhw.net
相关文档
当前位置:首页 >> DElphi CAsE >>

DElphi CAsE

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

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

procedure pctab(value:integer); begin case value of 1:xxxx; 2:xxxx; 3:xxxx; 4:xxxx; 5:xxxx; 6:xxxx; end; end;

delphi 的 case 语法,只能使用有序类型(如数值、字符、枚举)做为分支条件。 如果想使用字符串,可以考虑以下方法: 1、将字符串转换成枚举型,如: type TSitys = (Beijing, Tianjing, Shanghai,Chongqing); 2、使用 StringList,将字符串添...

function UpperCase(const S: string): string;转大写 function LowerCase(const S: string): string;转小写 举例: var ss,s: string; begin ss := 'Delphi'; s := UpperCase(ss); ShowMessage(s); //DELPHI s := LowerCase(ss); ShowMessage(s)...

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

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

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

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

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