OfficeVba/docx/border/TSDocxBordersRange.tsf

34 lines
619 B
Plaintext

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;