delphi - 如何在类中正确实现 Set 作为属性？

Question

假设我有以下示例:

  TDelphiIDECompatibility = (
    Delphi1,
    Delphi2,
    Delphi3);

从类中，我如何将上述内容正确实现为属性？

<小时/>

我的想法是，在我的组件中，我希望有一个字段，允许您为集合中的某些元素选择 True 或 False。

我试图这样声明，但运气不佳:

TMyClass = class
private
  FIDECompatibility: Set of TDelphiIDECompatibility;
public
  constructor Create;
  destructor Destroy; override;

  property IDECompatibility: TDelphiIDECompatibility read
    FIDECompatibility write FIDECompatibility;
end;

错误消息是:

Incompatible types: 'TDelphiIDECompatibility' and 'Set'

<小时/>

我知道的快速方法是将它们声明为常规 bool 值，如下所示:

private
  FDelphi1Compatible: Boolean;
  FDelphi2Compatible: Boolean;
  FDelphi3Compatible: Boolean;
public
  constructor Create;
  destructor Destroy; override;

  property Delphi1Compatible: Boolean read
    FDelphi1Compatible write FDelphi1Compatible;
end;

但是当我可以在集合/枚举中定义它们时，我真的不喜欢这样？

我应该怎么做才能正确声明它？

谢谢。

Answer 1

根据 TLama 的评论，我查看了 Anchors 的 Delphi 源代码，并在这里提出了解决方案:

TDelphiIDECompatibilityKind = (
  Delphi1,
  Delphi2,
  Delphi3);

TDelphiIDECompatibility = set of TDelphiIDECompatibilityKind;

还有类(class):

private
  FIDECompatibility: TDelphiIDECompatibility;
public
  constructor Create;
  destructor Destroy; override;

  property IDECompatibility: TDelphiIDECompatibility read
    FIDECompatibility write FIDECompatibility;
end;