delphi - 字符串集？？!​​!

Question

您熟悉此 block :

Var
  mySet: Set Of Char;
  C: Char;
begin
  mySet := ['a', 'b', 'c'];
  If C In mySet Then ShowMessage('Exists');
end;

有没有办法声明Set Of STRING？或者我可以使用类似的代码吗？该 block 的重要部分是 If C In mySet then ShowMessage('Exists'); 我想对一组字符串使用类似的内容。
谢谢。

Answer 1

集合是使用位数组实现的。所以不，你不能拥有“一组字符串”。使用 TStringList 代替，即:

var 
  mySet: TStringList;
  S: String;
begin 
  S := ...;
  mySet := TStringList.Create;
  try
    mySet.Add('a');
    mySet.Add('b');
    mySet.Add('c'); 
    if mySet.IndexOf(S) <> -1 Then ShowMessage('Exists');
  finally
    mySet.Free;
  end;
end;