0

したがって、このコードが機能すると仮定します。

{***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ますが、それ以外はすべて理解していますが、この部分もわかりませんこれは単なるクラス宣言であり、すべてのクラスが適切に宣言されていると想定しています

4

1 に答える 1