Delphi中隐藏的嵌套记录信息

Question

我有一个相对复杂的数据结构需要建模。我想用 Delphi 中的记录结构来完成此操作，并且该结构足够复杂，足以证明将其拆分为嵌套记录是合理的。一个简化的例子：

    type
      TVertAngle = record
      strict private
        fDecDegrees: Double;
        fDegrees: integer;
        fMinutes: integer;
        fDeciSeconds: integer;
        function GetAngle: Double;
        function GetRadians: Double;
      public
        Valid: Boolean;
        procedure SetAsString(const Value: string; const AngleType: TInfoUnits);
        property DecDegrees: Double read GetAngle;
        property Radians: Double read GetRadians;
      end;

~~~~ other sub record declarations ~~~~~~

  TDataRecord = record
  strict private
    fHorzDistance: Double;
    fLeicaData: TRawMessageData;
    fUpdateTime: TDateTime;
    function DecodeGsi8(GsiWord: string): TGSiWord;
    function DecodeGsi16(GsiWord: string): TGSiWord;
  public
    GsiWord: TGSiWord;
    Valid: Boolean;
    InputMode: TDataModes;
    HorzAngle: THorzAngle;
    VertAngle: TVertAngle;
    HorzRange: TDistance;
    SlopeRange: TDistance;
    PrismOffset: TConstants;
~~~~ other sub record instances~~~~~~
    function SetMessage(RawMessage: string): Boolean;
~~~~ more stuff ~~~~~~

我目前在单元的接口部分声明了所有这些。我希望只有主记录结构对使用该单元的任何内容都是可见的，并且目前所有子记录也是可见的。如果我将记录声明移至实现部分，则会出现编译器错误。如何重组以便在主记录之前声明子记录但不发布子记录？

Answer 1

您可以执行以下操作之一：

1) 在单独的“子单元”中声明“子记录”，因此仅当“子单元”在“uses”子句中声明时“子记录”类型才可用。这并不完全是您正在寻找的，因为“子记录”可以对其他单元可见，但它提供了一定程度的隐藏，因为必须明确声明“子单元”才能达到“子记录”定义。

2) 将“子记录”声明为私有嵌套类型，如下所示：

type
  TMainRec = record
    private type
      TSubRec = record
        FSubField: Integer;
        procedure SubMethod;
      end;
    private
      FSubRec: TSubRec;
  end;

implementation

{ TMainRec.TSubRec }

procedure TMainRec.TSubRec.SubMethod;
begin
...
end;

Answer 2

您不能这样做，因为即使信息不需要直接可供单元外部的其他代码使用，如果您要在某处使用主记录，编译器仍然需要了解子记录类型。

您可以尝试的一件事是在另一个单元中声明其他类型，然后不在其他地方使用该其他单元。但这并不能真正解决问题；它只是隐藏了一点。