Pb-oop文檔簡單翻譯

PureBasic是不支持面向對象的，這個非常可惜，不過有人謝了Pb-oop作爲PureBasic的插件而是PureBasic能夠支持面向對象，下面是Pb-oop相關文檔的地址：http://pb-oop.origo.ethz.ch/wiki/main

 

以下是我的翻譯：

 

;PB的類學習 ; 第一，聲明類 Class MyClass MyClass(string.s) ;類的構造函數的名稱跟類名稱一樣 Release() ;類的結構函數，使用Release()關鍵字 set(Value.l) ;開始定義類方法 Get.s() Number.l ;類的字段、屬性 Nam.s EndClass ; 先定義類的構造函數和結構函數，然後再定義類的方法，最後在設定類的屬性 ;類的構造函數的名字總是類名本身，結構函數則使用Release()函數 ;類方法不能定義在類的構造函數之中 ;類的方法總是公共的，即能被外部調用，而類的屬性則總是私有的，僅可以被類內部方法調用，而不能被外部直接調用 ;如果沒有爲類定義結構函數Release()函數，那麼系統將會自動爲類添加結構函數。 ;不要試圖釋放This指針，該指針會在類被結構時自動被釋放。 ;不能給類的構造函數或結構函數聲明一個返回值。 ;類內部方法和屬性必須按照嚴格的順序來聲明，構造函數、結構函數、類方法，最後才能是屬性。 ; 第二，類方法 ;使用PureBasic中的Procedure關鍵字來實現類方法，用指針This來調用類中聲明的屬性。 ;例如 Procedure MyClass/set(Value.l) This/Number = Value This/Name = Str(Value) This/Method(Value + Len(This/Name)) EndProcedure Procedure MyClass.Set(Value.l) This->Number = Value This->Name = Str(Value) This->Method(Value+Len(This->Name)) EndProcedure Procedure MyClass.set(Value.l) ->Number = Value ->Name = Str(Value) ->Method(Value + Len(->Name)) EndProcedure ;在類方法的實現中，不能將This作爲變量名稱使用 ;在類方法的實現中，能夠直接地調用其他類的方法，例如 Procedure MyClass/set(Value.l) This/Number = Value This/Name = Str(Value) This/Method(Value + Len(This/Name)) OtherClass.Method("Call me") ;此處即調用其他類的方法。 EndProcedure ; 第三，生成和銷燬 類 ;類通過使用關鍵字 NewObject 來生成一個實例，在生成類的時候，還可以向類的構造函數提供參數 ;生成類 *object.MyClass = NewObject MyClass("Hello constructor") ;生成一個數組的類對象 Dim *object.MyClass(100) For i = 0 To 100 *object(i) = NewObject MyClass("Hello constructor") Next i ;一般總是把類實例化給一個指針，這樣是使類對象扎堆？ ;刪除一個類對象 DelectObject *object ;刪除一個數組的類對象 For i = 0 To 100 DeleteObject *object(i) Next i ;第四 類繼承 ;一個新的類可以繼承一個基礎類的所有方法和屬性 ;例如 Class BaseClass ;定義基礎類 BaseClass() ;構造函數 Release() ;結構函數 MethodA() ;聲明方法 MethodB() AttributeA.l ;聲明屬性 AttributeB.b EndClass Class MasterClass Extends BaseClass ;從基礎類繼承的新類 MasterClass() Release() MethodC() MethodD() AttributeC.l Attributed.b EndClass *object.MasterClass = NewObject MasterClass() *object/MethodA() ;該方法從基礎類中繼承而來的 ;如果被繼承的基礎類的構造函數需要傳遞一個參數，則新的類必須在自身的構造函數中先調用Base()函數，並向其傳遞參數。如果基礎類的構造函數不需要傳遞參數，則編譯器會自動調用基礎類的構造函數，無需人工調用。 ;例如 Class BaseClass ;定義基礎類 BaseClass(string.s,number.l) ;構造函數 Release() ;結構函數 MethodA() ;聲明方法 MethodB() AttributeA.l ;聲明屬性 AttributeB.b EndClass Class MasterClass Extends BaseClass ;從基礎類繼承的新類 MasterClass() Release() MethodC() MethodD() AttributeC.l Attributed.b EndClass Procedure MasterClass.MasterClass() This/Base("Hello",10) ;通過調用Base()函數向基礎類的構造函數傳遞參數 EndProcedure ;爲了避免項目代碼變得複雜繁複，PureBasic的OOP並不支持多重繼承。 ;第五，多態性 ; 如果被繼承的父類中存在子類中再次聲明的方法，那麼將會出現命名空間的錯誤，這時應當決定使用父類或子類關於該方法的聲明。 ; 在PureObject中如果出現這樣的情況，默認情況下會使用父類的聲明，即以父類的該方法覆蓋子類關於該方法的聲明。 Class BaseClass ;定義基礎類 BaseClass(string.s,number.l) ;構造函數 Release() ;結構函數 Get() Set(string.s,number.l AttributeA.l ;聲明屬性 AttributeB.b EndClass Class MasterClass Extends BaseClass ;從基礎類繼承的新類 MasterClass() Release() Get() Set(string.s,number.l) AttributeC.l Attributed.b EndClass ; 在上面這個例子中，父類BaseClass中的Get(),Set(string.s,number.l)將會被MasterClass的實例調用。 ; 另外，如果你想在子類中重新定義父類中的某方法，也可以通過在父類中對該方法使用關鍵字Flex來避免子類中的該方法被覆蓋。 ; 例如 Class BaseClass ;定義基礎類 BaseClass(string.s,number.l) ;構造函數 Release() ;結構函數 Flex Get() ;在父類中使用Flex使Get()方法在子類中不被覆蓋 Set(string.s,number.l AttributeA.l ;聲明屬性 AttributeB.b EndClass Class MasterClass Extends BaseClass ;從基礎類繼承的新類 MasterClass() Release() Get() Set(string.s,number.l) AttributeC.l Attributed.b EndClass ;而在子類中則可以使用關鍵字Focus來避免其方法被父類的方法覆蓋，例如： Class BaseClass ;定義基礎類 BaseClass(string.s,number.l) ;構造函數 Release() ;結構函數 Get() Set(string.s,number.l AttributeA.l ;聲明屬性 AttributeB.b EndClass Class MasterClass Extends BaseClass ;從基礎類繼承的新類 MasterClass() Release() Get() Focus Set(string.s,number.l) ;在子類中使用關鍵字使Set()方法不被父類的Set()方法覆蓋。 AttributeC.l Attributed.b EndClass ; 如果在父類中不想一個方法中子類中被關鍵字Focus聲明而被取消覆蓋，則可以使用關鍵字Fixed在父類中聲明該方法。 ; 例如： Class BaseClass ;定義基礎類 BaseClass(string.s,number.l) ;構造函數 Release() ;結構函數 Fixed Get() ;使用關鍵字Fixed以使Get()方法不能在子類中被取消覆蓋。 Set(string.s,number.l AttributeA.l ;聲明屬性 AttributeB.b EndClass Class MasterClass Extends BaseClass ;從基礎類繼承的新類 MasterClass() Release() Focus Get() ;Get()方法在父類中已經使用Fixed聲明，此時使用Focus會出現錯誤。 Set(string.s,number.l) AttributeC.l Attributed.b EndClass ;以上代碼會產生一個錯誤。不能通過Focus來聲明一個在父類中已經使用Fixed聲明的方法。 ;關於抽象類 ;所謂抽象類是指一個類能被作爲父類來繼承，又能夠作爲模板來使用的類。 ;抽象類一般包含一些沒有實現的方法（抽象方法），所以繼承抽象類的子類必須將抽象類中沒有實現的抽象方法實現才能夠生成類實例。 ;如果沒有實現抽象類中的抽象方法，則子類在生成實例時會產生語法錯誤。 ;下面是例子： Class Abstarct MyClass ;用關鍵字Abstarct來聲明一個抽象類 MyClass(string.s) Release() set(Value.l) Get.s() Number.l Nam.s EndClass ;還可以如下面 Class MyClass MyClass(string.s) Release() set(Value.l) Abstarct Get.s() ;將一個類中的某個方法抽象化，不用實現了！ Number.l Nam.s EndClass ;第六，封裝 ;我們不僅可以在一個結構中聲明一個類，甚至可以在類中聲明類，實例化它。 Class MyClass MyClass(string.s) Release() set(Value.l) Get.s() Number.l Nam.s *encapsulatedObject.OTHERCLASS[#MAX_OBJECTS] ;在類中被實例化的類 EndClass ;注意，在類中實例化的被只能在類的方法中使用（把它當成是類的一個特殊屬性，具有方法的屬性），而不能被類的實例使用。 ;例如下面： Class MyClass MyClass(string.s) Release() set(Value.l) Get.s() Number.l Nam.s *encapsulatedObject.OTHERCLASS[#MAX_OBJECTS] ;在類中被實例化的類 EndClass *obj.MyClass = NewObject MyClass() *obj/encapsulatedObject[1] = NewObject OtherClass() ;上面的代碼將不會起作用，因爲*obj/encapsulatedObject[1]是被封裝的，不能從外部調用。 ;最後的建議是，最好將封裝的類用指針來指向，這樣可以提高效率。