XProfan

Français

Jörg
Sellmeyer

cela Beispiel aus qui Aider funktioniert pas, si on cela Array avec Var deklariert.

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

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

    Imprimer A$[&loop]

Endwhile

WaitInput

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

14.05.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

je ergänz cela la fois, dans qui espoir, dass cela dans qui prochain Version irgendwie behoben wird.
qui Zuweisung per Var funktioniert zwar, si direct Cordes transfert volonté mais pas, si avec Explode une fonction de chaîne zum Füllen des Arrays verwendet wird.

Kompilieren Marque Séparation

CLS
Déclarer aTest$[]
var test$ = "Das est un Test"
aTest$[] = Explode(test$," ")
Var String aTest2[] = Explode(test$, " ")
Var String Namen[] = "Maria", "Karl", "Herbert","Heinrich"
imprimer SizeOf(aTest2[])
Imprimer aTest2[0]'ici scheint seulement le nombre qui Teilstrings anzukommen
imprimer

WhileLoop 0, SizeOf(Namen[]) - 1

    Cas SizeOf(aTest$[]) > 0:Imprimer aTest$[&loop]
    Cas SizeOf(aTest2[]) > 1:Imprimer aTest2[&loop]
    Cas SizeOf(Namen[]) > 0:Imprimer Namen[&loop]
    Imprimer

Endwhile

WaitInput

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

23.06.2020 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
W.

dans irgend einem Forenbeitrag stand la fois, que voici "nur statische Werte" zugewiesen volonté peut.
chez meinen Tests ging mais so einiges par-dessus hinaus.

Allerdings habe je cela toujours im Oberstübchen behalten et, si quelque chose pas klappte, wieder sur vieux umgestellt.

oui c'est ca comment chez PType$(), cela sa Werte pour dem ersten Funktionsaufruf verliert. oui, irgendwann passiert cela - mais nie beim ersten Funktionsaufruf.
mon Workaround chez PType:

Kompilieren Marque Séparation


  Déclarer int cnt,string PT
  cnt = %PCount
  PT = ""
  WhileLoop 1,cnt
    PT = PT + si(&loop>1,"|","") + PType$(&loop)
  Endwhile

'cela Ganze comme Einzeiler dans den Funktionen wohin je verschiedene Parameterlisten brauche
Déclarer int cnt,string PT:cnt = %PCount:PT = "":WhileLoop 1,cnt:PT = PT + si(&loop>1,"|","") + PType$(&loop):Endwhile
'ensuite habe je avec Substr$(PT,paridx,"|") la valeur prêt.

et qui vieille forme chez Var ist arrêt qui Aufteilung dans Deklaration et Zuweisung.

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

27.06.2020 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation