XProfan

Español

Jörg
Sellmeyer

Das Ejemplo de el Ayuda funktioniert no, si al Array con Var deklariert.

CLS
var test$ = "Das es una Test"
Var A$[] = Explode(test$, " ")

WhileLoop 0, SizeOf(A$[]) - 1

    Imprimir A$[&bucle]

EndWhile

WaitInput

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

14.05.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Yo ergänz el veces, en el Hoffnung, dass el en el nächsten Versión irgendwie Fijo se.
El Zuweisung por Var funktioniert zwar, si direkt Cuerdas transferencia voluntad pero no, si con Explode una String función para Füllen des Arrays verwendet se.

Kompilieren Marca Separación

CLS
Declarar aTest$[]
var test$ = "Das es una Test"
aTest$[] = Explode(test$," ")
Var String aTest2[] = Explode(test$, " ")
Var String Namen[] = "Maria", "Karl", "Herbert","Heinrich"
imprimir SizeOf(aTest2[])
Imprimir aTest2[0]'hier scheint sólo el número el Teilstrings anzukommen
imprimir

WhileLoop 0, SizeOf(Namen[]) - 1

    Case SizeOf(aTest$[]) > 0:Imprimir aTest$[&bucle]
    Case SizeOf(aTest2[]) > 1:Imprimir aTest2[&bucle]
    Case SizeOf(Namen[]) > 0:Imprimir Namen[&bucle]
    Imprimir

EndWhile

WaitInput

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

23.06.2020 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

In irgend una Forenbeitrag stand veces, que aquí "nur statische Werte" zugewiesen voluntad puede.
En media Tests ging aber así einiges darüber hinaus.

Aunque Yo el siempre en el Oberstübchen behalten y, si algo no klappte, otra vez en alt umgestellt.

Exactamente como en PType$(), el seine Werte después de el ersten Funktionsaufruf verliert. Sí, irgendwann passiert el - aber nie beim ersten Funktionsaufruf.
Mein Workaround en PType:

Kompilieren Marca Separación


  Declarar int cnt,cadena PT
  cnt = %PCount
  PT = ""
  WhileLoop 1,cnt
    PT = PT + if(&loop>1,"|","") + PType$(&loop)
  EndWhile

'el Ganze como Chiste breve en el Características wo Yo verschiedene Parameterlisten brauche
Declarar int cnt,cadena PT:cnt = %PCount:PT = "":WhileLoop 1,cnt:PT = PT + if(&loop>1,"|","") + PType$(&loop):EndWhile
'entonces Yo con Substr$(PT,paridx,"|") valor parat.

Und el alte Form en Var es sólo el Aufteilung en Deklaration y Zuweisung.

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

27.06.2020 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita