33 lines
502 B
Plaintext
33 lines
502 B
Plaintext
Type XlsxApplication = class
|
|
|
|
public
|
|
Function Create();
|
|
Function Init();
|
|
|
|
public
|
|
property Workbooks read ReadWorkbooks; // Completed
|
|
Function ReadWorkbooks(index);
|
|
|
|
private
|
|
workbooks_;
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function XlsxApplication.Create();
|
|
Begin
|
|
Init();
|
|
End;
|
|
|
|
Function XlsxApplication.Init();
|
|
Begin
|
|
workbooks_ := new Workbooks();
|
|
End;
|
|
|
|
Function XlsxApplication.ReadWorkbooks(index)
|
|
Begin
|
|
if ifnil(index) then return workbooks_;
|
|
return workbooks_[index];
|
|
End;
|
|
|