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...
在Jcl库中，你有StrIndex函数StrIndex(Index, Array Of String)，它的工作方式如下：...
case 语句只能对顺序类型（ordinal type）管用，也就是：1)整型；2)字符型；3)枚举型。如果要用于字符串，可以采取几种变通的方式：利用 TStringList。先把备选的字符串挨个 Add 进去，然后调用其 IndexOf 方法；如果你的备选项的第 N 个字符（N 应为常数）都互不相同，那么就可以通过取出这个字符...
case i of 报错Ordinal type required 0: ADOTable1.FieldByName('pid').AsString:= 1; 报错Incompatible types:'string' and 'Integer'// 用‘’把1括起来，因为是字符串的。1: ADOTable1.FieldByName('pid').AsString:= 2; 同上// 用‘’把2括起来，因为是字符串的。2: ADOTable1.Field...
Name : string[20]; Sex : string[2]; Salary : Double; 集合类型 指针类型 符号 ^ 可变类型 VARIANT 文件类型 file of 类型标示符 有类型的文件 file 无类型的文件 用于访问硬盘而忽略格式的操作 自定义数据类型 Type TtestData = 1..100 ; //定义一个1到100的测试数据类型 ...
{方法一: 假如要 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; ...
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...
示例一个函数如下：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...
delphi 的 case 语法，只能使用有序类型（如数值、字符、枚举）做为分支条件。如果想使用字符串，可以考虑以下方法：1、将字符串转换成枚举型，如：type TSitys = (Beijing, Tianjing, Shanghai,Chongqing);2、使用 StringList，将字符串添加后，再 IndexOf 来判断。
delphi中case of问题 case a of 这个的a只能是整型数字呀!您可以这样做,用ComboBox1.ItemIndex属性来做: i:= ComboBox1..ItemIndex; case i of 0: ADOTable1.FieldByName('pid').AsString:= '0';//对应***部 1: ADOTable1.FieldByName('pid').AsString:= '1';//对应人事部...