XProfan

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

Proc Kartensatz.Kartensatz

    Parameters b#[],parent&,AnzKarten&,gr%,back&,Img&

    WhileLoop 0,AnzKarten& -1

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

    Wend

EndProc

Proc MemoryKarte.MemoryKarte

    Parameters parent&,groesse%,Bild&,Back&
    .parent& = parent&
    .Bild& = Bild&
    .Back& = Back&
    .Size& = groesse%
    .hdl& = Create("Button",.parent&,Str$(.Back&) + " " + Str$(Bild&),140,0,groesse%,groesse%)

EndProc

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

While 1

    Input test%

    If test%

        'wenn diese Zeile ausgeklammert ist, knallt es in der Abfrage der Struktur
        'dabei ist es egal, ob die Zeile ausgeführt wird oder nicht
        Print SizeOf(KartenSatz#[])
        Print test%,"drin"

    Else

        Print test%,"draußen"

    EndIf

    With KartenSatz#[0]

        Print .parent&,.hdl&

    EndWith

Wend