下面是一个使用枚举和Case语句处理字符串的示例代码: delphi program CaseStringExample; {$APPTYPE CONSOLE} uses SysUtils; type TStringEnum = (seHello, seWorld, seGoodbye); const StringEnumMap: array[TStringEnum, string] of string = ( 'Hello', 'World', 'Goodbye' ); StringMap: array[string...
case CaseString (search, ['delphi3000', 'delphipages', 'Torry's']) of 0: s:= 'Excellent!'; 1: s:= 'Good source'; 2: s:= 'Not bad!'; end; /// const MatchingStrings = '*First*Second*Third*'; var sString: string; ... // sString has the data you want to test case p...
set1 = set of 0..10 变体类型: variant (3)数组:特别注意:delphi中数组的下标是从1开始 静态数组: 一维: type myarr = Array[3..5] of integer //值为3,4,5类型是整形 多维:type myArr = Array[1..3] of Array[3..5] of Integer 或者下面的方式 type myArr = Array[1..3, 3..5] of...
case 语句只能对顺序类型（ordinal type）管用，也就是：1)整型；2)字符型；3)枚举型。如果要用于字符串，可以采取几种变通的方式：利用 TStringList。先把备选的字符串挨个 Add 进去，然后调用其 IndexOf 方法；如果你的备选项的第 N 个字符（N 应为常数）都互不相同，那么就可以通过取出这个字符...
Add 进去，然后调⽤其 IndexOf ⽅法。该⽅法返回⼀个整数，表⽰待找字符串出 现在列表中的位置：//var strList: TStringList;strList := TStringList.Create;strList.Add('Beijing');strList.Add('Tianjing');strList.Add('Shanghai');strList.Add('Chongqing');str := 'Chongqing';case str...
case RadioGroup1.ItemIndex of 0: Color := clRed; 1: Color := clYellow; 2: Color := clLime; 3: Color := clBlue; end; end; {方法一:假如要case的字符串的长度不同} procedure TForm1.Button2Click(Sender: TObject); var str: string; begin str := RadioGroup1.Items[RadioGroup1.Item...
{方法一: 假如要 case 的字符串的长度不同} procedureTForm1.Button2Click(Sender: TObject); var str:string; begin str := RadioGroup1.Items[RadioGroup1.ItemIndex]; caseLength(str)of 1: Color := clRed; 2: Color := clYellow; 3: Color := clLime; ...
delphi 将Case语句与String一起使用在Jcl库中，你有StrIndex函数StrIndex(Index, Array Of String)，它...
Name : string[20]; Sex : string[2]; Salary : Double; 集合类型 指针类型 符号 ^ 可变类型 VARIANT 文件类型 file of 类型标示符 有类型的文件 file 无类型的文件 用于访问硬盘而忽略格式的操作 自定义数据类型 Type TtestData = 1..100 ; //定义一个1到100的测试数据类型 ...
delphi 的 case 语法，只能使用有序类型（如数值、字符、枚举）做为分支条件。如果想使用字符串，可以考虑以下方法：1、将字符串转换成枚举型，如：type TSitys = (Beijing, Tianjing, Shanghai,Chongqing);2、使用 StringList，将字符串添加后，再 IndexOf 来判断。不...