XPSE

Class MeineKlasse = X%, Y%, MeineKlasse@

Proc MeineKlasse.MeineKlasse

    Paramètres A%, B%
    .X% = A%
    .Y% = B%

ENDPROC

Déclarer MeinObjekt#
MeinObjekt# = @New(MeineKlasse,5,10)

Class MeineKlasse
public:
X%
Y%
MeineKlasse()
private:
sonstiges$
EndClass

Proc MeineKlasse.MeineKlasse(A%,B%)

    .X% = A%
    .Y% = B%

ENDPROC

Déclarer MeinObjekt#
MeinObjekt# = new MeineKlasse(5,10)