OfficeVba/docx/border/TSDocxBordersTable.tsf

33 lines
603 B
Plaintext

Type TSDocxBordersTable = Class(TSDocxBorders)
public
Function Init(table);
Function Operator[](index);override;
private
table_;
public
Function Item(inde);override;
End;
// ============== 实现 ================= //
Function TSDocxBordersTable.Init(table);
Begin
table_ := table;
End;
Function Operator TSDocxBordersTable.[](index);override;
Begin
border_table_obj := new TSDocxBorderTable(self.Application, self.Creator, self.Parent);
border_table_obj.Init(table_, index);
return border_table_obj;
End;
Function TSDocxBordersTable.Item(Index);override;
Begin
return self[Index];
End;