私有类型对所有人可见？

Question

在程序开发过程中，我无意中注意到类中声明的所有类型都具有全局可见性。

我一直认为它们的可见性仅限于类，除非类型用类类型名称引用，如 TMyClass.TMytype.Value;

我在这里做错了什么吗，如下所示：

unit MyTest;

interface

type TMyTest  = class
    constructor Create;

    strict private
        type TMyType = ( NUL, SLEEP );

end;

implementation

// ...

导致使用此 (MyTest) 单元的其他单元发生冲突。

如果单元有睡眠（100）；调用，它会与 TMyTest.TMyType.SLEEP 冲突，防止冲突是我首先将 SLEEP 封装在 class 和 TMyType 中的原因。

对解决方法有什么建议吗？

Answer 1

这实际上是设计使然。您的枚举值具有单位或全局范围。它们不是私有的，因为它们不是班级的一部分。它们的范围在全球范围内。

您可以通过包含 scoped enums 指令来安排枚举值具有本地范围：

{$SCOPEDENUMS ON}

$SCOPEDENUMS 指令启用或禁用在 Delphi 代码中使用范围枚举。更具体地说，$SCOPEDENUMS 仅影响新枚举的定义，并且仅控制将枚举的值符号添加到全局范围。

在{$SCOPEDENUMS ON} 状态下，枚举是有作用域的，枚举值不会添加到全局作用域中。要指定作用域枚举的成员，您必须包含枚举的类型。