XProfan

CLS
Declare Feld#[620], s1%,s2%,s$,i&
s1%=20
s2%=40
Struct Feld = Vorname$( s1% ), Nachname$( s2% )
Dim Feld#[],Feld
WaitInput
Dispose Feld#[]
End

Struct Feld = Vorname$(20), Nachname$(40)

 {$cleq}
Cls
Declare x%
set("decimals",0)
x% = 620
Declare Feld#[x%]
print "Das Bereichsarray wird ohne weiteres variabel dimensioniert"
Struct Subfelder = Hinz$(1), Kunz$(1)
Struct Feld = Vorname$(20), Nachname$(40), Subfelder
Dim Feld#[],Feld
print "Die Gesamtlänge der Struktur Feld wird korrekt berechnet: ",SizeOf(Feld#[0])
print
print "Nun folgen 4 Zuweisungen:"

With Feld#[1]

    .Vorname$="Quasimodo"
    .Nachname$="Pivonka"
    .Hinz$="A"
    .Kunz$="B"

EndWith

print "Die Ausgabe zeigt:"

With Feld#[1]

    print .Vorname$, "<-- Hier sollte Quasimodo stehen!"
    print .Nachname$, "<-- Hier sollte Pivonka stehen!"
    print .Hinz$, "<-- Hier sollte A stehen"
    print .Kunz$,"<-- Hier sollte B stehen"

EndWith

beep
print
print "Warum das bei A nicht klappt, ist denn doch etwas überraschend..."
WaitInput
Dispose Feld#[]
End