XProfan

Deutsch

rafl

Hallo,

dass man Arrays als Parameter an eine Prozedur übergeben kann, habe ich aus der Hilfedatei entnommen. Wie kann man aber ein in der Prozedur neu berechnetes Array an das aufrufende Programm zurückgeben? Es soll ja auch irgendwie gehen, ich habe aber nichts gefunden, wie ich das machen muss.

Es handelt sich bei meinen Daten um zweidimensionale Arrays mit Floatwerten. Die möchte ich nicht gerne in einen String umwanden und den nachher im Hauptprogramm wieder in ein 2D Array zurückwandeln.

Natürlich ginge es auch über ein globales Array. Das wäre aber auch nur eine "Krücke".

Kann mir da jemand helfen?

11.01.2021 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

p.specht

(XProfan 11.2a) Arrays sind eigentlich immer global, und es muss erst gar nichts zurückgegeben werden. Die Proc arbeitet eigentlich immer auf das als Parameter-Name übergebene Array.

Aus der X4-Hilfe:

Return A&[]

Eine Prozedur kann ein Array zurückgeben. Das Ergebnis muss einem Array gleichen Typs zugewiesen werden. Diese Möglichkeit gilt für alle Arraytypen mit Ausnahme der Bereichs-, Struktur- oder Objektarrays.

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

11.01.2021 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

p.specht

Mehr als Scherz gedacht - Im Interpreter ginge es vielleicht !

Kompilieren Markieren Separieren

Proc GetType$

    return ptype$(1)

Endproc

Proc make2DArr

    parameters p&' 0 holt Arraytyp, 1 überrägt Array
    Declare Arr![19,1]' 20x2-Array
    casenot p&:return gettype$(Arr![])
    Arr![]=&index*100' Eigentliche Array-Bearbeitung
    Return Arr![]

EndProc

Main:
cls
execute "declare  a"+make2DArr(0)
a![]=make2DArr(1)
Print a![19,1]
WaitInput
end