在Delphi中,"case of"语句用于根据一个表达式的值选择不同的代码分支。下面是一个示例: var input: Integer; begin Writeln('请输入一个数字:'); Readln(input); case input of 1: Writeln('输入的是1'); 2, 3: Writeln('输入的是2或3'); 4..10: Writeln('输入的是4到10之间的数字'); else Wri...
case Integer of 0: (Left, Top, Right, Bottom: Integer);1: (TopLeft, BottomRight: TPoint);end;中，Integer是数据类型，0和1是它的两个值，这个声明的意思是说内存中有一块区域存放了四个整型值，你可以用TRect.Left,TRect.Top...来访问，也可以用TRect.T...
functionInvokeRtti(codeptr: Pointer;Params:arrayofTValue): Integer;overload; var i: Integer; type tva=record caseIntegerof 0: (vi: Integer); 1: (vb: Boolean); 2: (vc: Char); 3: (vac: AnsiChar); 4: (vf: Single); 5: (vd: DWORD); end; tpint64dbl =record caseIntegerof 0: ...
PMessage =^TMessage; TMessage=packedrecordMsg: Cardinal; {消息编号}caseIntegerof0: ( WParam: WPARAM; LParam: LPARAM; Result: LRESULT);1: ( WParamLo: Word; WParamHi: Word; LParamLo: Word; LParamHi: Word; ResultLo: Word; ResultHi: Word);end; 在我们实际使用中,虽然标准的结构体可以满足...
其实就是代表分了几种情况,都可以表示,也相当于c里面的union _SYSTEM_INFO = record case Integer of 0: ( dwOemId: DWORD); 1: ( wProcessorArchitecture: Word...
示例一个函数如下：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; // CJK 自定义区 F900..$F...
var i : integer;begin i := StrToInt(Edit1.Text);case i of 1: Memo1.Lines.Add ('你输入了1');2: Memo1.Lines.Add('你输入了2')3: Memo1.Lines.Add('你输入了3');end;如果
购物打折与Delphi的Case<表达式> of 语句 procedure TForm1.Button1Click(Sender: TObject); var s,t:real; //s为折扣后金额,t为未打折金额 m:integer; //m为t的截取整数 begin t:=strToFloat(edit1.text); m:=trunc(t); case (m div 100) of //m整除100的结果属于下列范围: ...
case Integer of 1: array[0..0] of AnsiChar; 2: array[0..0] of WideChar; end;UnicodeString 增加了 code page 字段和 element size 来描述字符串内容,这使得 UnicodeString 和其它类型的字符串可以很好的相兼容,所以 AnsiString 和 UnicodeString 可以很方便的互相转换,唯一要注意的是,当把 UnicodeStrin...
整数(Integer) 字符(Character) 布尔(Boolean) 枚举(Enumerated) 子域(SubRange) 实数(Real) 结构类型(Structured) 集合(Set) 数组(Array) 记录(Record) 文件(File) 类(Class) 类指针(ClassReference) 界面(Interface) 字符串类型(String) 指针类型(Pointer) ...