在 Delphi 中，跨单元使用类型定义时出现问题

Question

使用德尔福2010... 我有一组二进制属性想要组合在一起。我已将其定义为这样...

type
    TTableAttributeType = (
        tabROOT = 1, 
        tabONLINE = 2, 
        tabPARTITIONED = 3, 
        tabCOMPRESSED = 4,  
        );

// Make a set of of the Table Attribute types...
type
      TTableAttrSet = Set of TTableAttributeType;

在我的 MAIN.PAS 单元中，我可以创建 TTableAttrSet 类型的变量。 另一个单元 UTILS.PAS 也需要理解 TTableAttrSet 类型。这是由 USES 子句处理的...

Main USES Util... Util USES Main（第二个使用子句，在实现部分下，所以我没有遇到循环引用问题......

到目前为止一切顺利。我的问题是我需要将 TTableAttrSet 类型的 var 变量从 main 传递到 Utils。

在 main.pas

procedure TForm1.Button1Click(Sender: TObject);
    var
    TabAttr : TTableAttrSet;

    begin
    TestAttr (TabAttr);
    end;

和 UTILS.PAS 中，

procedure TestAttr(var Attr: TTableAttrSet);
begin
      Attr := [tabROOT, tabCOMPRESSED];
end;

当我尝试这个时，我遇到了几个问题...... 问题1）。当我在 utils.pas 顶部定义过程定义时，

procedure TestAttr(var Attr: TTableAttrSet);

出现 TTableAttrSet 是未声明标识符的错误。这是有道理的，因为定义位于 Main.pas 中，而“uses Main.pas”位于我的过程定义之后。我该如何解决这个问题？目前，我已在 Utils.pas 文件和 Main.pas 的顶部复制了 TTableAttrSet 类型定义，但这“似乎不是正确的方式”。

问题2）。我遇到的更大问题是编译错误。在 Main.pas 的调用行上，

TestAttr(TabAttr);

我收到错误“实际和形式 var 参数的类型必须相同”。据我所知，它们是相同的。编译器抱怨什么？

Answer 1

简单的解决方案是将 TTableAttributeType 的声明移至 Utils 单元。你不能声明它两次，因为这样你就有了两种不同的类型。这对你来说没有用，你只需要一种类型。

只要主单元不需要在其接口部分引用TTableAttributeType，该解决方案就可以工作。由于 Utils 单元显然需要这样做，那么这将在单元接口部分之间创建循环依赖关系，这是非法的。

如果 Main 和 Utils 单元都需要在其接口部分引用 TTableAttributeType ，那么您需要创建另一个仅包含类型声明的单元。该单元可由 Utils 和 Main 在其 interface 部分中使用。