XProfan

Georg
Teles

Spontan falls me something like one

CLS
Declare ret$
ret$ = More()
print Val(SubStr$(ret$,1,","))
print Val(SubStr$(ret$,2,","))
print SubStr$(ret$,3,",")
print Val(SubStr$(ret$,4,","))
print SubStr$(ret$,5,",")

Proc More

    Return "1,2,three,4,fünf"

ENDPROC

Waitinput

You give any values as String with Separator back and at Reading with SubSTR$() wandelst these values in suitable Types circa

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

12/14/15 ▲

Jörg
Sellmeyer

me falls there yet something like one:

Proc MultiRueck

    Declare Rueck$[4]

    If %pcount

        WhileLoop 0,%pcount-1

            Print $(&Loop+1)
            Rueck$[&Loop] = $(&Loop+1)

        Wend

    EndIf

    Return Rueck$[]

ENDPROC

Declare values$[4]
Print "Eingabe"
Werte$[] = MultiRueck("A","B","C","D")
Print "\nAusgabe"

WhileLoop 0,3

    Print values$[&Loop]

Wend

WaitInput

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

12/14/15 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

rquindt (14.12.15)

gives it a Possibility, More as a Parameter back To give?

an function supply always 1 Return, The for several values thoroughly of type aray, Stringliste, Speicherhandle his can and accordingly as much as you want values transport can.

In XProfan and Basic can but a function too globale variables describe and it itself so very simply make.

12/15/15 ▲

H.Brill

Nimm still simply a area with
of/ one structure drinnen. either global
define or something like goes too :

Declare Memory area
Dim area, 20
area = Rueckgabe()
Print String $(area, 0)
Print Long(area, 11)
Print Long(area, 15)
WaitKey
Dispose area
End

Proc Rueckgabe

    Declare Memory b
    Struct values = s$(10), z1&, z2&
    Dim b, values
    b.s$ = "Hallo du"
    b.z1& = 100
    b.z2& = 200
    Return b
    Dispose b

ENDPROC

though of my sooner twice gemoppelt is.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

12/15/15 ▲

rquindt

thanks for speedy hints.
i'll time try,
take off my Program best suitable is.

12/15/15 ▲

ByteAttack

can also simply a Stringliste using.
example: