| |
| |
|
Jörg
Sellmeyer | Irgendwie fehlt mir chez den Arraybefehlen un simple ArrAdd.
Generell wäre es mir lieber, si le Arraybefehle Funktionen avec Rückgabewert wären.
Proc ArrAdd
Si PType$(1) = "$[]"
Paramètres Arr$[]',Wert$
WhileLoop 2,%pcount
Arr$[SizeOf(Arr$[])] = @$(&Boucle)
Wend
Retour SizeOf(Arr$[])
ElseIf PType$(1) = "&[]"
Paramètres Arr&[],Wert&
WhileLoop 2,%pcount
Arr&[SizeOf(Arr&[])] = @&(&Boucle)
Wend
Retour SizeOf(Arr&[])
ElseIf PType$(1) = "%[]"
Paramètres Arr%[],Wert%
ElseIf PType$(1) = "![]"
Paramètres Arr![],Wert!
EndIf
ENDPROC
Randomiser
Déclarer MyArr&[],MyArr$[]
WhileLoop 0,10
MyArr&[&Boucle] = Tour(1000)
Wend
Fenêtre 500,800
Imprimer SizeOf(MyArr&[])
Imprimer
WhileLoop 0,ArrAdd(MyArr&[],2,5000,7)-1
Imprimer MyArr&[&Boucle]
Wend
imprimer
WaitInput
imprimer
WhileLoop 0,10
MyArr$[&Boucle] = Chr$(Tour(27) + 65) + Chr$(Tour(27) + 65)
Wend
Imprimer SizeOf(MyArr$[])
imprimer
WhileLoop 0,ArrAdd(MyArr$[],Time $(0),Date$(1),"Test")-1
Imprimer MyArr$[&Boucle]
Wend
waitInput
|
|
| |
| |
| |
|
|
 | qui übliche Art wäre:
Roland pourrait daraus a&[count(a&)]="Neuer Eintrag" faire. |
|
| |
| |
| |
|
|
RGH | Um un ArrAdd trop ermöglichen, serait es oui reichen, cela ArrIns so trop erweitern, dass cela Insert aussi derrière dem letzten Element avoir lieu peux.
je wüsste im Moment pas, wozu je une Rückgabewert besoin.
Salut
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 | | qui Rückgabewert wäre ensuite simple toujours qui neue Taille, avec cela on qui pas nochmal extra abfragen muss. |
|
| |
| |
| |
|
|
RGH | je crois pas, dass es sich lohnt, pour cette Mini-confort qui Kompatibilität trop précédent Versionen aufzugeben.
mais ab qui prochain Version, darf qui index chez ArrIns aussi 1 derrière dem letzten Element liegen et ensuite erfolgt un ArrAdd.
Salut
Roland
(L'idée hätte au cours de qui Subscriptionsphase trop X3 deutlich plus vue sur 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 | Au cours de qui Subsdings lag je malheureusement größtenteils im Krankenhaus et hatte pas den nerf, mich avec cela trop befassen 
merci mais pour Einbauen. Wäre es pas possible, qui Dinger optionnel comme Befehl ou bien Funktion auszuführen?
on pourrait sich oui selber qui Dinger comme Funktion écrivons mais ensuite muss on im Prinzip 4 Funktionen erstellen ou bien une Funktion avec 4 Unterprogrammen indm on jeweils PType$ abfragt. |
|
| |
| |
| |
|
(906)
Deutsch
English
Français
Español
Italia