带有items属性的类怎么写?

                            
下面我想要实现的是一个记录操作的栈   
  其中的items属性以及Add、Remove、Clear方法怎么写呢?  
   
      TOperationType   =   (otMoveFtr,otDelFtr,otAddVertex,otMoveVeretex,otDelVertex);  
   
      TOperationRecorder   =   Class  
          private  
              aIndex:SmallInt;  
              aOperType:TOperationType;   //操作类型  
              aLyrOperd:IMOMapLayer;         //操作的目标数据层  
              aRecdOperd:IMORecordSet;     //操作的目标记录  
              aVertexOperd:IMOPoint;         //操作的目标节点   如果是对节点操作的话  
              Procedure   SetIndex(iIndex:SmallInt);  
              Procedure   SetOperType(iOperType:TOperationType);  
              Procedure   SetLyrOperd(iLyrOperd:IMOMapLayer);  
              Procedure   SetRecdOperd(iRecdOperd:IMORecordSet);  
              Procedure   SetVertexOperd(iVertexOperd:IMOPoint);  
          Public  
              Constructor   Create();  
              Property   sIndex:SmallInt   read   aIndex   write   SetIndex;  
              Property   OperType:TOperationType   read   aOperType   write   SetOperType;  
              Property   LyrOperd:IMOMapLayer   read   alyrOperd   write   SetLyrOperd;  
              Property   RecdOperd:IMORecordSet   Read   aRecdOperd   write   SetRecdOperd;  
              Property   VertexOperd:IMOPoint   Read   aVertexOperd   write   SetVertexOperd;  
      end;  
   
      TOperationStack   =   class  
          Private  
              aCount:SmallInt;  
              aItems:   array   of   TOperationRecorder;  
              Procedure   SetCount(iCount:Integer);  
          Public  
              Constructor   Create();  
              Procedure   Add(OperType:TOperationType;LyrOperd:IMOMapLayer;RecdOperd:IMORecordSet;VertexOperd:IMOPoint=nil);  
              Property   Count:SmallInt   read   aCount   Write   SetCount;  
              Property   Items:array   of   TOperationRecorder   read   aItems   Write   Add;  
      end;  
   
  var   UndoStack,RedoStack:TOperationStack;

查看回复