XProfan

declare b#,c#,t&
Dim b#,0
struct str1=a&,b&,c&
struct str2=a&,b&,c&,d&,e&

whileloop 10

    dim c#,str1
    t&=SizeOf(b#)
    dim b#,t&+SizeOf(c#)
    Speicherinhalt von c# an b#+t& kopieren; wie am besten (API?)
    dispose c#
    dim c#,str2
    t&=SizeOf(b#)
    dim b#,t&+SizeOf(c#)
    Speicherinhalt von c# an b#+t& kopieren; wie am besten (API?)
    dispose c#

endwhile

cls
Print SizeOf(b#)
Dispose b#
waitinput

Class Test = Test@,Inhalt$(1000),Anzahl%,getInhalt@

Proc Test.Test

    WhileLoop %pcount

        .Inhalt$ = .Inhalt$ + Str$(&(&Loop)) + "|"
        .Anzahl% = &Loop

    Wend

    Return .Inhalt$

EndProc

Proc Test.getInhalt

    Parameters Index%
    Return SubStr$(.Inhalt$,Index%,"|")

EndProc

Var B# = New(Test,123,345,2434,823) ,...,...)
Print B#.getInhalt(3),B#.Anzahl%
WaitInput

long h=globalAlloc(gPtr,8)
...
long h&,0=typ
long h&,4=wnd
...
globalFree(h)