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 类型。当用户输入一个字符后按...

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

示例一个函数如下: 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;...

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

//Delphi里是case...of...elsevarage:Integer;str:String ;begin age:=18; case age of 18:str:="我今年18岁"; else:str:="我今年不是18岁"; end;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这类信息编号的吧

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

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