delphi - 使用带字符串的 Case 语句

Question

说我有一个字符串

'SomeName'

并希望在 case 语句中返回值。这可以吗？可以像这样在case语句中使用字符串吗

Case 'SomeName' of

   'bobby' : 2;
   'tommy' :19;
   'somename' :4000;
else
   showmessage('Error');
end;

Answer 1

在 Jcl 库中，您有 StrIndex 函数StrIndex(Index, Array Of String)，其工作原理如下：

Case StrIndex('SomeName', ['bobby', 'tommy', 'somename']) of 
  0: ..code.. ;//bobby
  1: ..code..;//tommy
  2: ..code..;//somename
else
  ShowMessage('error');
end.

Answer 2

DelphiCase Statement只支持序数类型。所以你不能直接使用字符串。

但存在另一种选择，如

• 构建一个基于字符串返回整数（哈希）的函数
• 使用泛型和匿名方法（字符串的通用案例）
• 使用接收字符串数组的函数（为字符串做一个案例，理智的方式）
• 等等。

Answer 3

@Daniel 的回答为我指明了正确的方向，但我花了一段时间才注意到“Jcl 库”部分和关于标准版本的评论。

在 [至少] XE2 及更高版本中，您可以使用：

Case IndexStr('somename', ['bobby', 'tommy', 'somename', 'george']) of 
  0: ..code..;                   // bobby
  1: ..code..;                   // tommy
  2: ..code..;                   // somename
 -1: ShowMessage('Not Present'); // not present in array
else
  ShowMessage('Default Option'); // present, but not handled above
end;

此版本区分大小写，因此如果第一个参数是“SomeName”，它将采用not present in array路径。用于IndexText不区分大小写的比较。

对于较旧的 Delphi 版本，请分别使用AnsiIndexStr或AnsiIndexText。

感谢@Daniel、@The_Fox 和@afrazier 对于这个答案的大部分组成部分。

Answer 4

在 D7 和 Delphi 西雅图工作，

uses StrUtils (D7) system.Ansistring (Delphi Seattle)

case AnsiIndexStr(tipo, ['E','R'] )   of
      0: result := 'yes';
      1: result := 'no';
end;

Answer 5

我使用了 AnsiStringIndex 并且可以工作，但是如果您可以毫无问题地转换为数字：

try
  number := StrToInt(yourstring);
except
  number := 0;
end;

Answer 6

试试这个它使用 System.StrUtils

procedure TForm3.Button1Click(Sender: TObject);
const
  cCaseStrings : array [0..4] of String = ('zero', 'one', 'two', 'three', 'four');
var
  LCaseKey : String;
begin
  LCaseKey := 'one';
  case IndexStr(LCaseKey, cCaseStrings) of
    0: ShowMessage('0');
    1: ShowMessage('1');
    2: ShowMessage('2');
    else ShowMessage('-1');
  end;
end;