XProfan

Class Fond = Name$(41),
Ident$(21),
Anzahl%,
Datum$(9),
WertSingle!,
WertSumme!,
Fond@,
ShowValues@

Proc Fond.Fond

    Parameters Werte$
    .Name$ = SubStr$(Werte$,1,|)
    .Ident$ = SubStr$(Werte$,2,|)
    .Anzahl% = Val(Translate$(SubStr$(Werte$,3,|),.,))
    .Datum$ = SubStr$(Werte$,4,|)
    .WertSingle! = Val(Translate$(Translate$(SubStr$(Werte$,5,|),.,),,,.))
    .WertSumme! = Val(Translate$(Translate$(SubStr$(Werte$,6,|),.,),,,.))

EndProc

Proc Fond.ShowValues

    Var s$ = Name$(40) =  + .Name$ +
    Ident$(20) =  + .Ident$ +
    Anzahl% =  + Str$(.Anzahl%) +
    Datum$(8) =  + .Datum$ +
    WertSingle! =  + Str$(.WertSingle!) +
    WertSumme! =  + Str$(.WertSumme!)
    MessageBox(s$,Fond,64)

EndProc

Window 0,0 - 900,400;1
Declare TestWerte$,MyTest$,T#,Test#[2]
TestWerte$ = 1|2|3|4|5|6
MyTest$ = SubStr$(TestWerte$,1,COMINVEST TOT.RET.PROTECT)
print Eins:,MyTest$
MyTest$ = SubStr$(TestWerte$,1,Nur ein Test)
Wenn ich HINTER die obenstehende Zeile ein Hochkomma setze, funktioniert es!
print Zwei:,MyTest$
t# = New(Fond,MyTest$)

With T#

    .ShowValues()das hier knallt
    das Weitere funktioniert
    Print .Name$,
    .Ident$,
    .Anzahl%,
    .Datum$,
    .WertSingle!,
    .WertSumme!

EndWith

WaitInput
Dispose Test#[]
Dispose T#
ef='./../../funktionsreferenzen/XProfan/end/'>Fin