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...
Delphi中case 语句只能对顺序类型管用，顺序类型包括整型，字符型，枚举型，你的str是String型所以不能用case，如果你实在要用case的话，戳下面链接http://www.cnblogs.com/JackSun/archive/2010/11/30/1891830.html 我也是刚学习过来的
delphi 的 case 语法，只能使用有序类型（如数值、字符、枚举）做为分支条件。如果想使用字符串，可以考虑以下方法：1、将字符串转换成枚举型，如：type TSitys = (Beijing, Tianjing, Shanghai,Chongqing);2、使用 StringList，将字符串添加后，再 IndexOf 来判断。
case 语句只能对顺序类型（ordinal type）管用，也就是：1)整型；2)字符型；3)枚举型。如果要用于字符串，可以采取几种变通的方式：利用 TStringList。先把备选的字符串挨个 Add 进去，然后调用其 IndexOf 方法；如果你的备选项的第 N 个字符（N 应为常数）都互不相同，那么就可以通过取出这个字符...
{方法一: 假如要 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; ...
在Jcl库中，你有StrIndex函数StrIndex(Index, Array Of String)，它的工作方式如下：...
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....
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';//对应人事部...
Add 进去，然后调⽤其 IndexOf ⽅法。该⽅法返回⼀个整数，表⽰待找字符串出 现在列表中的位置：//var strList: TStringList;strList := TStringList.Create;strList.Add('Beijing');strList.Add('Tianjing');strList.Add('Shanghai');strList.Add('Chongqing');str := 'Chongqing';case str...
不可以!!!我记得delphi里的case里的条件只能用 数字，不能用字符或者字符串的