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%

        'if these row ausgeklammert is, knallt it in the request the structure
        'thereby is it alike, whether The row carryed out becomes or not
        Print SizeOf(KartenSatz#[])
        Print Test%,"drin"

    Else

        Print Test%,"draußen"

    EndIf

    With KartenSatz#[0]

        Print .parent&,.hdl&

    EndWith

Wend