XProfan

Declare tmp#[],tmp&
Class Test = t&,Test@

Proc Test.Test

    Parameters m&
    .t& = m&

EndProc

tmp#[0] = New(Test,5)

WhileLoop 3

    'das hier geht nicht
    'tmp#[SizeOf(tmp#[])] = New(Test,&Loop)

Wend

WhileLoop 3

    'so gehts
    tmp& = SizeOf(tmp#[])
    tmp#[tmp&] = New(Test,&Loop)

Wend

WhileLoop 0,SizeOf(tmp#[])-1

    Print tmp#[&Loop].t&

Wend

WaitInput