XProfan

Class Test = i%,out@,test@

Proc Test.Test

    Parameters l%
    .i% = l%

EndProc

Proc Test.Out

    Var s$ = "eins|zwei|drei|vier"

    If %pcount = 1

        Parameters l%
        Return SubStr$(s$,l%,"|")

    Else

        Declare s1$

        WhileLoop .i%

            s1$ = s1$ + "|" + SubStr$(s$,&Loop,"|")

        Wend

        Return Del$(s1$,1,1)

    EndIf

EndProc

Declare A#[2],T$,T1$,T2$
A#[0] = New(Test,2)
A#[1] = New(Test,3)
T$ = A#[0].Out(2) + " Test " + A#[1].Out()'hier wier die Ausgabe des ersten Objektes verschluckt
Print T$
'ab hier funktioniert alles wie erwartet
T1$ = A#[0].Out(2)
T2$ = A#[1].Out()
Print T1$ + " Test " + T2$
WaitInput

T$ = A#[0].out(2) + " Test " + Trim $(A#[1].out())'the goes

T$ = A#[0].Out(2) + " Test " + mid$(A#[1].Out(),1,99)'hier wier die Ausgabe des ersten Objektes verschluckt

proc eins

    parameters p$
    return p$

endproc

T$ = A#[0].Out(2) + " Test " + eins(A#[1].Out()