下面是一个使用枚举和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...
case 语句只能对顺序类型（ordinal type）管用，也就是：1)整型；2)字符型；3)枚举型。如果要用于字符串，可以采取几种变通的方式：利用 TStringList。先把备选的字符串挨个 Add 进去，然后调用其 IndexOf 方法；如果你的备选项的第 N 个字符（N 应为常数）都互不相同，那么就可以通过取出这个字符...
delphi 将Case语句与String一起使用在Jcl库中，你有StrIndex函数StrIndex(Index, Array Of String)，它...
{方法一: 假如要 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; ...
s :string; begin s := 'this is a test'; ShowMessage(s); end; 布尔值:只有true和false两种类型,但是delphi内置4种布尔类型,分别是 Boolean/ByteBool/WordBool/LongBool,分别占1/2/3/4字节 枚举类型:type 名={标识符1,标识符2,标识符3...}; ...
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 语法，只能使用有序类型（如数值、字符、枚举）做为分支条件。如果想使用字符串，可以考虑以下方法：1、将字符串转换成枚举型，如：type TSitys = (Beijing, Tianjing, Shanghai,Chongqing);2、使用 StringList，将字符串添加后，再 IndexOf 来判断。不...
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...
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';//对应人事部...