你对这个块很熟悉：
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'); 我想对一组字符串使用类似的东西。
谢谢。
【问题讨论】：
集合是使用位数组实现的。所以不，你不能有一个“字符串集”。改用 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;
【讨论】：
RTL System.StrUtils 单元为此提供了一个非常有趣的方法：
function MatchText(const AText: string; const AValues: array of string): Boolean; overload;
像这样使用它：
if MatchText(sLanguages, ['fr-FR', 'en-GB', 'de-DE', 'it-IT', 'fr-CH', 'es-ES']) then
Writeln('found')
【讨论】：
你可以利用这个。
type
TAnyEnum = (aeVal1, aeVal2, aeVal3);
TEnuns = set of TAnyEnum;
TAnyMessages: array [TAnyEnum] of String;
const
MyMessages: TAnyMessages = ('Exists', 'Something else', 'WTF!?');
var
MySet : TEnums;
begin
MySet = [aeVal1, aeVal2];
If aeVal1 in MySet then ShowMessage(MyMessages[aeVal1]);
end;
【讨论】：
很遗憾，但 Delphi 仍然没有非常基本的数据结构，比如集合。 “Fabricio Araujo”的建议在使用上非常有限——你必须知道所有可能的字符串，所以当你从某个地方读取它们时它是没有用的。在这样的“几乎一组字符串”中也不可能有超过 256 个项目。 Remy Lebeau 建议为此目的使用 TStringList，但是当你有大集合时它绝对是低效的。在现代版本的 Delphi 中，可以使用 TDictionary 来保持任何东西的无序集，包括字符串：
procedure TForm6.FormCreate(Sender: TObject);
type
TEmpty = record end;
var
MySet: TDictionary<String, TEmpty>;
Dummy: TEmpty;
begin
MySet := TDictionary<String, TEmpty>.Create;
try
MySet.Add('Str1', Dummy);
MySet.Add('Str2', Dummy);
MySet.Add('Str3', Dummy);
if MySet.TryGetValue('Str2', Dummy) then
ShowMessage('Exists');;
finally
MySet.Free;
end;
end;
区分大小写。如果您需要不区分大小写的实现，您可以在 put/look 之前将所有字符串小写，然后在 set 中（使用 AnsiLowerCase 函数）。
【讨论】：
Fabricio Araujo 发布了对原始问题的最佳答案。
但是，如果您要问这个问题，您也应该问自己
“我是否只需要知道 Str 是否在此 Set 中？”。
对于“MonthAbbr 是否在允许的月份名称缩写集中？”这个问题
您的下一个问题很可能是“那么，是哪一个月？”。
因此您的代码可能会显示为case GetMonthNumber(Str) of
0: //Error: Str is not a Month Name or Abbreviation
1: //etc.
对于实现，最简单的通用答案是在 Delphi 7 中使用排序的 TStringList（因为已标记问题）。
【讨论】：
另一种选择是声明一个新的“String”类型并使用 RECORD HELPER 在其上实现“IN”运算符：
USES System.SysUtils, System.StrUtils;
TYPE
TextString = RECORD
PRIVATE
STR : STRING;
PUBLIC
CLASS OPERATOR Implicit(CONST S : STRING) : TextString; INLINE;
CLASS OPERATOR Implicit(CONST S : TextString) : STRING; INLINE;
END;
{ TextString }
CLASS OPERATOR TextString.Implicit(CONST S : STRING) : TextString;
BEGIN
Result.STR:=S
END;
CLASS OPERATOR TextString.Implicit(CONST S : TextString) : STRING;
BEGIN
Result:=S.STR
END;
TYPE
TStringHelper = RECORD HELPER FOR TextString
CLASS OPERATOR In(CONST T : TextString ; CONST ARR : ARRAY OF STRING) : BOOLEAN;
FUNCTION IsEmpty : BOOLEAN;
END;
{ TStringHelper }
CLASS OPERATOR TStringHelper.In(CONST T : TextString ; CONST ARR : ARRAY OF STRING) : BOOLEAN;
BEGIN
Result:=MatchText(T.STR,ARR)
END;
FUNCTION TStringHelper.IsEmpty : BOOLEAN;
BEGIN
Result:=STR.IsEmpty
END;
VAR
S : TextString;
T : STRING;
begin
try
REPEAT
WRITE('Enter an animal name: '); READLN(T); S:=T;
IF S.IsEmpty THEN EXIT;
IF S IN ['Bird','Lion','Monkey'] THEN WRITELN('You got it!') ELSE WRITELN('Nope - Try Again...')
UNTIL FALSE
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
它在赋值和比较中隐式兼容 STRING 类型。它在“IN”运算符中隐式不区分大小写，并且通过扩展记录助手（使用 Equal/NotEqual/GreaterThan/LessThan/GreaterThanOrEqual/LessThanOrEqual 运算符到 STRING 和 TextString 类型），您可以创建完全不区分大小写的字符串类型。
缺点：你不能在 VAR/OUT STRING 参数中使用这种新类型，并且由于它的来回转换和比较中的大写，它比标准 STRING 类型慢一点。
【讨论】：
function MatchStr(const AText: string; const AValues: array of string): Boolean;超载;
MatchStr 使用区分大小写比较来确定数组 AValues 中的任何字符串是否与 AText 指定的字符串匹配。如果数组中至少有一个字符串匹配，则返回 true，如果没有任何字符串匹配，则返回 false。
对于不区分大小写的匹配，请使用 MatchText 例程。
【讨论】：