在 CASE 语句中使用字符串作为条件

回答:
这里我介绍另一种使用 TStringList 的解决方法。
示例1：

var
SelectStrings: TStringList;
...

{ Initialization }
SelectStrings := TStringList.Create;
SelectStrings.Add('First'); (*1*)
SelectStrings.Add('Second'); (*2*)
SelectStrings.Add('Third'); (*3*)
...

{ Use it }

case SelectStrings.IndexOf(sPassedString) of (*4*)
0: //First
begin
<do something>
end;
1: //Second
begin
<do something>
end;
2: //Third
begin
<do something>
end;
end;
...
{ Finalization }
SelectStrings.Free;

上面是大小写敏感的比较，如果要对大小写不敏感则改用下面的比较方法：

SelectStrings.Add(AnsiUpperCase('First')); (*1*)
SelectStrings.Add(AnsiUpperCase('Second')); (*2*)
SelectStrings.Add(AnsiUpperCase('Third')); (*3*)

case SelectStrings.IndexOf(AnsiUpperCase(sPassedString)) of (*4*)

(注意：不要使用 UpperCase, 应使用 AnsiUpperCase, 否则你的程序将在国际化中工作不正常。)