Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

CLASS cDemo
        class VAR nDemo
        class VAR oCursFa
        class VAR oCursAu
        CLASS VAR oConnection
exported:
        class method init
        class METHOD destroy

endclass

// Initilaisiert
class method cDemo:init()
	::oConnection := obdConnect()
	::oCursFa:= SQLSelect():new("SELECT  *** Gekürzt *** )
	
	
  ::oCursAu:= SQLSelect():new("SELECT  *** Gekürzt *** )

RETURN self

class method cDemo:destroy()
	::oCursFa:destroy()
	::oCursAu:destroy()
	::oConnection:destroy()
	::nDemo:=nil        // Muss eine einfache Var überhaupt freigegeben werden
    
RETURN self

Code: Alles auswählen

oWasAuchImmer:=cDemo():new() 

Code: Alles auswählen

oWasAuchImmer:=cDemo():destroy() 

Code: Alles auswählen

HIDDEN:    Nur im Programmcode von Methoden dieser Klasse sichtbar               
PROTECTED: Auch im Programmcode von Methoden der Subklassen sichtbar              
EXPORTED:  Im gesamten Programmcode sichtbar (Global sichtbar) 

Code: Alles auswählen

CLASS MyClass [ FROM XbPart ]
   PROTECTED:
     VAR ...

   EXPORTED:
     VAR ...

INLINE METHOD Init(...)
   ...
return Self

INLINE METHOD Create(...)
   ...
return Self

INLINE METHOD Destroy()
/**************************
*
* alle activeX und DLL Pointer "lösen"
* bei activeX ( AutomationObject() ) gibt es ein o:destroy()
* bei DLL, wenn man Objecte wie Font, Brush etc. angelegt hat, mit "DeleteObject"
*
* folgende XbPart sollten explizit "o:Destroy" werden
*
* XbpBitmap()
* XbpClipBoard()
* XbpFileDev()
* XbpFont()
* XbpMetaFile()
* XbpPrinter()
* XbpPresSpace()
*
**************************/
return Self

ENDCLASS

Code: Alles auswählen

::nDemo:=nil