Type TSDocxBordersRange = Class(TSDocxBorders) public Function Init(rangeObj); Function Operator[](index);override; private range_obj_; public Function Item(Index);override; End; // ============== 实现 ================= // Function TSDocxBordersRange.Init(rangeObj); Begin range_obj_ := rangeObj; End; Function Operator TSDocxBordersRange.[](index);override; Begin border_obj := new TSDocxBorderRange(self.Application, self.Creator, self.Parent); border_obj.Init(range_obj_, index); return border_obj; End; // function Function TSDocxBordersRange.Item(Index);override; Begin return self[Index]; End;