delphi – 使用带有字符串的Case语句

说我有一个字符串

'SomeName'

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

Case 'SomeName' of

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

解决方法

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

但存在另一种选择

>构建一个基于字符串返回整数(散列)的函数
>使用泛型和匿名方法(A generic case for strings)
>使用接收字符串数组的函数(Making a case for Strings,the sane way)>等等。