字符串集？？！​​！

您熟悉这个块：

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

有什么办法可以申报吗Set Of STRING？或者我可以使用类似的代码吗？该块的重要部分是If C In mySet Then ShowMessage('Exists');我想对一组字符串使用类似的东西。
Thanks.

集合是使用位数组实现的。所以不，你不能拥有“一组字符串”。使用 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;