在Delphi中有HashSet吗？

您可以很容易地在TDictionary< K,V>之上构建一个泛型集类.裸骨版本可能如下所示：

type
  TSet<T> = class
  private
    FDict: TDictionary<T,Integer>;
  public
    constructor Create;
    destructor Destroy; override;
    function Contains(const Value: T): Boolean;
    procedure Include(const Value: T);
    procedure Exclude(const Value: T);
  end;

....

constructor TSet<T>.Create;
begin
  inherited;
  FDict := TDictionary<T,Integer>.Create;
end;

destructor TSet<T>.Destroy;
begin
  FDict.Free;
  inherited;
end;

function TSet<T>.Contains(const Value: T): Boolean;
begin
  Result := FDict.ContainsKey(Value);
end;

procedure TSet<T>.Include(const Value: T);
begin
  FDict.AddOrSetValue(Value,0);
end;

procedure TSet<T>.Exclude(const Value: T);
begin
  FDict.Remove(Value);
end;

我没有编译这段代码,所以你可能需要修正我所犯的错误.你可能希望扩展它更有能力.但希望这可以告诉你如何开始.