XProfan

Deutsch

Jörg
Sellmeyer

Das Beispiel aus der Hilfe 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 zitieren Zeilenweise zitieren

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 übergeben 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 zitieren Zeilenweise zitieren

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,"|") den Wert 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 zitieren Zeilenweise zitieren