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;