|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
//----------------------------------------------------------
// Funzione: f_riceve_ritorna_array
//
// Return type: any
//
// Argument type: any Argument name: aa_array
//----------------------------------------------------------
string ls_temp_array [], ls_out_array []
any la_return
// definisco e riempio un array locale alla funzione
ls_out_array = {'ALFA', 'BETA', 'GAMMA', 'OMEGA'}
// ricevo l'array passato alla funzione assegnandolo obbligatoriamente
// ad un array locale alla funzione
ls_temp_array = aa_array
// combino l'arry ricevuto con l'array locale producendo un nuovo array di uscita
ls_out_array [1] = ls_out_array [1] + ls_temp_array [1]
ls_out_array [2] = ls_out_array [2] + ls_temp_array [2]
ls_out_array [3] = ls_out_array [3] + ls_temp_array [3]
ls_out_array [4] = ls_out_array [4] + ls_temp_array [4]
// assegno l'array di uscita alla apposita variabile di tipo 'any'
la_return = ls_out_array []
// restituisco la variabile di tipo 'any'
return la_return
//----------------------------------------------------------
//----------------------------------------------------------
// Lo script sotto che richiama la suddetta funzione, definisce
// un array 'ls_in_array' da passare alla funzione ed un array 'ls_out_array'
// per ricevere il risultato dalla funzione.
// Riempie 'ls_in_array' con quattro valori stringa e lo passa alla funzione.
// L'array risultato 'ls_out_array' riempito dalla funzione
// viene emesso in un campo testo per vedere il risultato:
// ALFAUNO - BETADUE - GAMMATRE - OMEGAQUATTRO
//----------------------------------------------------------
String ls_in_array[], ls_out_array[]
Any la_return
ls_in_array = { 'UNO', 'DUE', 'TRE', 'QUATTRO' }
ls_out_array = f_riceve_ritorna_array ( ls_in_array )
st_array.text = ls_out_array[1] + " - " + ls_out_array[2] + &
+ " - " + ls_out_array[3] + " - " + ls_out_array[4]
//----------------------------------------------------------
|