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
Erstellen dann mit (wobei das stimmen müsste sonst würde die Klasse nicht funktionieren):
Code: Alles auswählen
oWasAuchImmer:=cDemo():new()
Code: Alles auswählen
oWasAuchImmer:=cDemo():destroy()