一款状态回放过去时索引的设置-创新互联

 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

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。