| |
| |
|
Jörg
Sellmeyer | Irgendwie fehlt me en el Arraybefehlen una einfaches ArrAdd.
Generell wäre lo me más bien, si la Arraybefehle Características con Rückgabewert wären.
Proc ArrAdd
If PType$(1) = "$[]"
Parámetros Arr$[]',Valor$
WhileLoop 2,%pcount
Arr$[SizeOf(Arr$[])] = @$(&Loop)
Wend
Volver SizeOf(Arr$[])
ElseIf PType$(1) = "&[]"
Parámetros Arr&[],Wert&
WhileLoop 2,%pcount
Arr&[SizeOf(Arr&[])] = @&(&Loop)
Wend
Volver SizeOf(Arr&[])
ElseIf PType$(1) = "%[]"
Parámetros Arr%[],Valor%
ElseIf PType$(1) = "![]"
Parámetros Arr![],Valor!
EndIf
ENDPROC
Selección aleatoria
Declarar MyArr&[],MyArr$[]
WhileLoop 0,10
MyArr&[&Loop] = Rnd(1000)
Wend
Ventana 500,800
Imprimir SizeOf(MyArr&[])
Imprimir
WhileLoop 0,ArrAdd(MyArr&[],2,5000,7)-1
Imprimir MyArr&[&Loop]
Wend
imprimir
WaitInput
imprimir
WhileLoop 0,10
MyArr$[&Loop] = Chr$(Rnd(27) + 65) + Chr$(Rnd(27) + 65)
Wend
Imprimir SizeOf(MyArr$[])
imprimir
WhileLoop 0,ArrAdd(MyArr$[],Time$(0),Date$(1),"Test")-1
Imprimir MyArr$[&Loop]
Wend
waitInput
|
|
| |
| |
| |
|
|
 | El übliche Art wäre:
Roland podría lo a&[count(a&)]="Neuer Eintrag" hacer. |
|
| |
| |
| |
|
|
RGH | Um una ArrAdd a ermöglichen, sería lo sí reichen, el ArrIns así a erweitern, dass el Insert auch hinter el letzten Element tener lugar kann.
Yo saber en el Moment no, wozu Soy un Rückgabewert necesidad.
Saludo
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 entonces simplemente siempre el neue Größe, así uno el no otra vez extra abfragen muss. |
|
| |
| |
| |
|
|
RGH | Yo glaube no, dass lo lohnt, para esta Mini-Komfort el Kompatibilität a früheren Versionen aufzugeben.
Aber de el nächsten Versión, darf el Index en ArrIns auch 1 hinter el letzten Element mentira y luego es una ArrAdd.
Saludo
Roland
(La idea hätte während el Subscriptionsphase a X3 deutlich mehr Aussicht en 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 el Subsdings lag Yo desafortunadamente größtenteils en el Krankenhaus y había no el Nerv, mich así a befassen 
Gracias aber fürs Einbauen. Wäre no posible, el Dinger optional como Befehl oder Función auszuführen?
Man podría se sí selber el Dinger como Función escribir aber entonces muss uno en el Principio 4 Características redactar oder una Función con 4 Unterprogrammen indm uno jeweils PType$ abfragt. |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia