| |
| |
|
Jörg
Sellmeyer | Irgendwie fehlt mir bei den Arraybefehlen ein einfaches ArrAdd.
Generell wäre es mir lieber, wenn die Arraybefehle Funktionen mit Rückgabewert wären.
Proc ArrAdd
If PType$(1) = "$[]"
Parameters Arr$[]',Wert$
WhileLoop 2,%pcount
Arr$[SizeOf(Arr$[])] = @$(&Loop)
Wend
Return SizeOf(Arr$[])
ElseIf PType$(1) = "&[]"
Parameters Arr&[],Wert&
WhileLoop 2,%pcount
Arr&[SizeOf(Arr&[])] = @&(&Loop)
Wend
Return SizeOf(Arr&[])
ElseIf PType$(1) = "%[]"
Parameters Arr%[],Wert%
ElseIf PType$(1) = "![]"
Parameters Arr![],Wert!
EndIf
EndProc
Randomize
Declare MyArr&[],MyArr$[]
WhileLoop 0,10
MyArr&[&Loop] = Rnd(1000)
Wend
Window 500,800
Print SizeOf(MyArr&[])
Print
WhileLoop 0,ArrAdd(MyArr&[],2,5000,7)-1
Print MyArr&[&Loop]
Wend
print
WaitInput
print
WhileLoop 0,10
MyArr$[&Loop] = Chr$(Rnd(27) + 65) + Chr$(Rnd(27) + 65)
Wend
Print SizeOf(MyArr$[])
print
WhileLoop 0,ArrAdd(MyArr$[],Time$(0),Date$(1),"Test")-1
Print MyArr$[&Loop]
Wend
waitInput
|
|
| |
| |
| |
|
|
 | Die übliche Art wäre:
Roland potuto daraus a&[count(a&)]="Neuer Eintrag" machen. |
|
| |
| |
| |
|
|
RGH | Um ein ArrAdd zu ermöglichen, würde es ja reichen, das ArrIns so zu erweitern, dass das Insert auch hinter dem letzten Element erfolgen kann.
Ich wüsste im Moment nicht, wozu ich einen Rückgabewert benötige.
Saluto
Roland |
|
| |
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 02.06.2018 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | Der Rückgabewert wäre dann einfach immer die neue Dimensione, damit man die nicht nochmal extra abfragen muss. |
|
| |
| |
| |
|
|
RGH | Ich glaube nicht, dass es sich lohnt, per diesen Mini-Komfort die Kompatibilität zu früheren Versionen aufzugeben.
Aber ab der nächsten Version, darf der Index bei ArrIns auch 1 hinter dem letzten Element liegen und dann erfolgt ein ArrAdd.
Saluto
Roland
(Die Idee hätte während der Subscriptionsphase zu X3 deutlich mehr Aussicht auf Erfolg gehabt.) |
|
| |
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 02.06.2018 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Während der Subsdings lag ich leider größtenteils im Krankenhaus und hatte nicht den Nerv, mich damit zu befassen 
Danke aber fürs Einbauen. Wäre es nicht possibile, die Dinger optional als Befehl oder Funktion auszuführen?
Man potuto sich ja selber die Dinger als Funktion schreiben aber dann muss man im Prinzip 4 Funktionen erstellen oder eine Funktion mit 4 Unterprogrammen indm man jeweils PType$ abfragt. |
|
| |
| |
| |
|
(902)
Deutsch
English
Français
Español
Italia