帕斯卡理解

Question

因此假设此代码有效。

{***Start declaration of TMakeProd ***}

TListMakeProd = class (TListNF)
  procedure SortProcProdSeqNum;
  procedure LoadFromRep(aFileRep, aNo : String);
  function Find(aMakeProdID : Integer) : TMakeProd;
  function FindObj(aMakeProd : TMakeProd) : TMakeProd;
end;

TMakeProd = class (TProduct)
private
  FMakeProductID : Integer;
  FProdLotSize : Longint;

public
  LiProcProd : TListProcProd;
            {Load from a database.}
 { procedure SortLiProcProdSeqNum;   }
  constructor Init(aMakeProductID: Integer; aProdLotSize: Longint);
  destructor Done; override;
  destructor Destroy;  override;
  property MakeProductID : Integer read FMakeProductID write FMakeProductID ;
  property ProdLotSize : Longint read FProdLotSize write FProdLotSize ;
  function findNextProcProd(aProcProd: TProcProd) : TProcProd;

{ create function with return if required. }
end;

我不明白的是这个宣言LiProcProd : TListProcProd; 我知道TListProcProd是一个类，我理解它的其他所有内容但是这部分我也不是这只是一个类声明并假设所有类都已正确声明

Answer 1

type
  TMakeProd = class(TProduct)
  ....
    LiProcProd : TListProcProd;
  ....
  end;

在此声明中，LiProcProd是一个公共字段。这由documentation描述。