一款狀態回放過去時索引的設置

      

  procedure  TMainForm.AclonRectSelectoolExecute(Sender;Tobject);

     begin

       MapDetail.CurrentTool  := miRectSelectTool;

       sb.Panele[2].Text  := TAction(Sender).Hint;

    end

 簡單地說明狀態回放的一些功能所示：

       type

    ThistoryList  =  class(TList)

    private

       FHistoryinteger;     //過去時的索引

       procedure SetHistoryIndex(const  Value: Integer): //過去時索引設置

    protected

    public

       //通過SetHistoryIndex方法設置過去時的索引屬性

       property  HistoryIndex:Integer read FHistoryIndex write SethistoryIndex;

       function Add(Item: pointer): Integer;       //增加過時的索引

       procegure  Clear; override;                     //清空過去時的索引

       procedure  Delete(Index:  Integer);        //刪除過去的索引

       procedure  Insert(Index:  Integer;  Item:  Pointer);  //插入過去的索引

       function   Goback:  integer;

       function   GoForward:  integer;             //實現狀態後退

       function   GoForward:  integer              //實現狀態前朝

       constructor   Create ;                          //分類的構造

     end