XProfan

Español

Michael
W.

Übergebe Yo una Array a una Función, entonces verschwindet el Inhalt des Arrays después de el Ende el Unterfunktion.

El Unterfunktion es así kurz como posible mantenido. Nur una Array annehmen y lo como Rückgabe-Valor liefern.

Das zurückgegebene Array es entonces auch como, aber el übergebene es plötzlich leer...

Kompilieren Marca Separación

' XProfan X3.1
' 3 dyn. Arrays
Declarar long arr_1[], arr_2[], arr_3[]
cls
' Übergabe y Rückgabe uno Arrays
' (qué así angestellt se, es hier unwichtig)

Proc test

    parámetros long arr[]
    volver arr[]

ENDPROC

' erzeuge Werte en el Array 1
arr_1[] = 1,4,17,4,9,8,3,4,17
' kopiere Array
arr_2[] = arr_1[]
Imprimir "\n-Array 1"

whileloop 0, sizeof(arr_1[]) - 1

    imprimir &bucle,arr_1[&bucle]

endwhile

Imprimir "- *"
Imprimir "\n-Array 2 (wurde de Array 1 erstellt)"

whileloop 0, sizeof(arr_2[]) - 1

    imprimir &bucle,arr_2[&bucle]

endwhile

Imprimir "- *"
waitinput
' erstelle Array 3 (Daten de Unterprogramm)
arr_3[] = test( arr_1[] )
Imprimir "\n-Array 3 (wurde de Unterprogramm geladen)"

whileloop 0, sizeof(arr_3[]) - 1

    imprimir &bucle,arr_3[&bucle]

endwhile

Imprimir "- *"
Imprimir "\n-Array 1 (---Nanu---)"

whileloop 0, sizeof(arr_1[]) - 1

    imprimir &bucle,arr_1[&bucle]

endwhile

Imprimir "- *"
waitend