Método oposto ao Init()

[JoséQuintas]

Tem algum método oposto ao Init() ?
Supondo que fosse EXIT, seria pra ser usado como neste exemplo.

Código: Selecionar todos

LOCAL oVar
oVar := classe():New()
RETURN

CREATE CLASS classe
   METHOD Init()
   METHOD Exit() // supondo
   END CLASS

METHOD Init() CLASS classe
   Aadd( MySystem:Forms, SELF )
   RETURN NIL

METHOD Exit() CLASS classe
   aSize( MySystem:Forms, Len( MySystem:Forms ) - 1 )
   RETURN NIL

[alxsts]

Olá!

Pesquise por DESCTRUCTOR na documentação do [x]Harbour.