XProfan

English

Michael
Dell

Hallole,

can me none rhyme on it make thatswhy Poste I simply whom code & The Error- Message:
Compile Mark Separation

!
Def $SAGA_sgIt "AutoPaint,Decimals,ErrorLevel,Escape,FastMode,FileMode,MessageMode,NumWidth,PDC,RandSeed,StrWidth,TrueColor"

Proc SetAll

    Parameters SA_In$

    WhileLoop 1,12,1

        Set(SubStr$($SAGA_sgIt,&Loop,","),Val(SubStr$(SA_In$,&Loop,",")))

    EndWhile

EndProc

Proc GetAll

    Declare GA_Erg$

    WhileLoop 1,12,1

        Case    (&Loop = 1): GA_Erg$ = Str$(Get(SubStr$($SAGA_sgIt,&Loop,",")))
        CaseNot (&Loop = 1): GA_Erg$ = (GA_Erg$ + "," + Str$(Get(SubStr$($SAGA_sgIt,&Loop,","))))

    EndWhile

    Return GA_Erg$

EndProc

Cls
Print ("GetAll(): " + GetAll() + "   Normal")
SetAll("2,6,1,1,1,2,1,0,2,2,4,1")
Print
Print ("GetAll(): " + GetAll() + "   Neu")
WaitInput
End

p2cpp_error.png	3 kB

Kurzbeschreibung:	_ Error- Message _

Hochgeladen:	07/17/06

Downloadcounter:
		Download

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

07/17/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

(Workaround) try times the data in variables To settle and Set only with the variables aufzurufen.

it sees so from as though the Compiler one SET(st, st) vermutet.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

07/17/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
König

Hello Michael,

Yes, is correct. The cause for the whole is, I for different Set()-mutants in C++ ornate functions using have. in the Context with @val() sees the Compiler then unfortunately Mehrdeutigkeiten...

One Workaround is in the doing the detour over The variables or (something kürzer) the Einschließen of @val() into zusätzliches @int().

BTW: with the actually Beta-Version should it directly functions, because it there only another Set()-Variante gives (The then a Variant-Datentyp using).

MfG

Sebastian

P.s.: unfortunately shining it additional another Problem Übersetzen of Get() To give - I gucke time, what there schiefläuft...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]