XProfan

Italia

Jörg
Sellmeyer

Das Beispiel aus der Aiuto funktioniert nicht, wenn man das Array mit Var deklariert.

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

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

    Print A$[&loop]

EndWhile

WaitInput

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

14.05.2018 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Ich ergänz das mal, in der Hoffnung, dass das in der nächsten Version irgendwie behoben wird.
Die Zuweisung per Var funktioniert zwar, wenn direkt Strings trasferimento werden aber nicht, wenn mit Explode eine Stringfunktion zum Füllen des Arrays verwendet wird.

Kompilieren Markieren Separieren

CLS
Declare aTest$[]
var test$ = "Das ist ein Test"
aTest$[] = Explode(test$," ")
Var String aTest2[] = Explode(test$, " ")
Var String Namen[] = "Maria", "Karl", "Herbert","Heinrich"
print SizeOf(aTest2[])
Print aTest2[0]'hier scheint nur die Anzahl der Teilstrings anzukommen
print

WhileLoop 0, SizeOf(Namen[]) - 1

    Case SizeOf(aTest$[]) > 0:Print aTest$[&loop]
    Case SizeOf(aTest2[]) > 1:Print aTest2[&loop]
    Case SizeOf(Namen[]) > 0:Print Namen[&loop]
    Print

EndWhile

WaitInput

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

23.06.2020 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
W.

In irgend einem Forenbeitrag stand mal, das hier "nur statische Werte" zugewiesen werden können.
Bei meinen Tests ging aber so einiges darüber hinaus.

Allerdings habe ich das immer im Oberstübchen behalten und, wenn etwas nicht klappte, wieder auf alt umgestellt.

Genau wie bei PType$(), das seine Werte nach dem ersten Funktionsaufruf verliert. Ja, irgendwann passiert das - aber nie beim ersten Funktionsaufruf.
Mein Workaround bei PType:

Kompilieren Markieren Separieren


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

'das Ganze als Einzeiler in den Funktionen wo ich verschiedene Parameterlisten brauche
Declare int cnt,string PT:cnt = %PCount:PT = "":WhileLoop 1,cnt:PT = PT + if(&loop>1,"|","") + PType$(&loop):EndWhile
'dann habe ich mit SubStr$(PT,paridx,"|") il valore parat.

Und die alte Form bei Var ist halt die Aufteilung in Deklaration und Zuweisung.

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

27.06.2020 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione