[*]Profan

Class Test = % X, y%,nom@,Delete@,Test@

Proc Test.Test

    Paramètres x%,y%
    .x% = x%
    .y% = y%

ENDPROC

Proc Test.nom

    Paramètres Me#
    Imprimer ClassOf(Me#)

ENDPROC

Proc Test.Delete

    Paramètres Me#
    Dispose Me#
    'Dispose Test

ENDPROC

Var Test# = New(Test,4,5)

With Test#

    Imprimer .x%,.y%

EndWith

Imprimer Test#.nom(Test#)
Test#.Delete(Test#)
Imprimer SizeOf(Test#)
Cas SizeOf(Test#):Dispose Test#
Imprimer SizeOf(Test#)
WaitInput