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