XProfan

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

Proc Kartensatz.Kartensatz

    Parámetros b#[],parent&,AnzKarten&,gr%,back&,Img&

    WhileLoop 0,AnzKarten& -1

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

    Wend

ENDPROC

Proc MemoryKarte.MemoryKarte

    Parámetros parent&,groesse%,Bild&,Back&
    .parent& = parent&
    .Bild& = Bild&
    .Back& = Back&
    .Size& = groesse%
    .hdl& = Crear("Button",.parent&,Str$(.Back&) + " " + Str$(Bild&),140,0,groesse%,groesse%)

ENDPROC

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

Mientras que 1

    Entrada test%

    If test%

        'si esta Línea ausgeklammert es, knallt lo en el Abfrage el Struktur
        'esta es egal, si el Línea ausgeführt se oder no
        Imprimir SizeOf(KartenSatz#[])
        Imprimir test%,"drin"

    Más

        Imprimir test%,"draußen"

    EndIf

    With KartenSatz#[0]

        Imprimir .parent&,.hdl&

    EndWith

Wend