XProfan

Class MemoryKarte = parent&,\
hdl&,\
Bild&,\
Back&,\
x&,y&,\
Size&,\
MemoryKarte@
Class Kartensatz = MemoryKarte,\
Anzahl&,\
KartenSatz@

Proc Kartensatz.Kartensatz

    Paramètres b#[],parent&,AnzKarten&,gr%,back&,Img&

    WhileLoop 0,AnzKarten& -1

        b#[&Boucle] = New(MemoryKarte,%hwnd,gr%,back&,Img&)
        imprimer b#[&Boucle].hdl&

    Wend

ENDPROC

Proc MemoryKarte.MemoryKarte

    Paramètres parent&,groesse%,Bild&,Back&
    .parent& = parent&
    .Bild& = Bild&
    .Back& = Back&
    .Size& = groesse%
    .hdl& = Créer("Button",.parent&,Str$(.Back&) + " " + Str$(Bild&),140,0,groesse%,groesse%)

ENDPROC

Cls
Déclarer KartenSatz#[],test%
Var Test# = New(Kartensatz,KartenSatz#[],%hwnd,8,140,-23456,345673)

Tandis que 1

    Contribution test%

    Si test%

        'si cet la ligne ausgeklammert ist, knallt es dans qui Abfrage qui Struktur
        'dabei ist es égal, si qui la ligne fonctionnement wird ou bien pas
        Imprimer SizeOf(KartenSatz#[])
        Imprimer test%,"drin"

    D'autre

        Imprimer test%,"draußen"

    EndIf

    With KartenSatz#[0]

        Imprimer .parent&,.hdl&

    EndWith

Wend