| |
|
|
p.specht
| Getestet in XProfan11.2a: from of/ one Proc can itself usually with Return x only one einziger worth zurückliefern (it be because, one commit one aray - then becomes this aray worked)! Verzichtet one on a Proc-appeal with clinging, means NO "Funktion" (Parameter are naturally furthermore permitted), so can by Dummy-Proc appeal up to 15 different values into Hauptteil zurückliefern, without thereby later To disposende reaches or quite a own global Stack arrange To must. deference: Aufrufe from the Hauptteil with Parameters IN KLAMMER delete already VOR the return this internen Parameterstack!
cls
split "abcdefghijklmno",99
print "0:";@$(0),"1:";@$(1),"2:";@$(2),"3:";@$(3),"4:";@$(4),\
"5:";@$(5),"6:";@$(6),"7:";@$(7),"8:";@$(8),"9:";@$(9),"10:";@$(10),\
"11:";@$(11),"12:";@$(12),"13:";@$(13),"14:";@$(14),"15:";@$(15)
waitinput
end
proc split : parameters g$,f$
declare a$[15] : a$[]=mid$(g$,&index+1,1)
dummy a$[0],a$[1],a$[2],a$[3],a$[4],a$[5],a$[6],a$[7],\
a$[8],a$[9],a$[10],a$[11],a$[12],a$[13],a$[14],a$[15]
return f$
endproc
proc dummy
endproc
|
|
|
| Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 04/30/21 ▲ |
|
|
|
|
Michael W. | |
|
| |
|
|
|
p.specht
| must Yes none ! but How would You it because make, Michael? |
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05/02/21 ▲ |
|
|
|
|
Michael W. | several values over a structure. It's all right naturally too as Hash-aray, means The "Key" / "Value" Variante. or if it none special selection want simply into aray.
The here angegebene Variante would I as "Dirty Trick" bezeichnen. and there's one never sure, whether the in future too yet so functions.
now white I but, Why this here with PType$() standing:
The investigation the Type must directly at the beginning the procedure to one etwaigen first Function- or Prozeduraufruf stand! |
|
|
| |
|
|