Page 1 of 1

Pregunta sobre el return

Posted: Thu Jun 12, 2008 2:22 pm
by leandro
Amigos del foro tengan buen dia...

Lo que pasa es que necesito que una funcion me retorne mas de un parametro. Se puede hacer? Lo intente retornando un array, pero no se como capturar cada una de las variables del arreglo...

Alguien me puede ayudar con esto? De antemano gracias

Posted: Thu Jun 12, 2008 2:45 pm
by sysctrl2
Leandro , en un xbrowse yo regreso los valores en un arreglo.
para despues mostrarlos en un dialogo con gets,

no se si te refieras a esto.


if lEnter //regresa los valores encontrados ...
aValores := array( 8 )
aValores[1] := (cAlias)->nombre
aValores[2] := (cAlias)->contacto
aValores[3] := (cAlias)->direccion
aValores[4] := (cAlias)->colonia
aValores[5] := (cAlias)->localidad
aValores[6] := (cAlias)->telefono
endif

(cAlias)->( dbcloseArea() )

return ( aValores )



static function _teclas( nKey )
do case
case nKey == VK_INSERT
case nKey == VK_RETURN
oDlg1:end()
lEnter := .t.
case nKey == VK_DELETE
case nKey == VK_F3 //ordenar
case nKey == VK_F6 //buscar
case nKey == VK_F8 //listado
endcase
return (.T.)

Si..

Posted: Thu Jun 12, 2008 3:15 pm
by leandro
Si amigo eso es lo que necesito....

Pero que pasa es que no se como sacar los valores del array al momento de llamar la funcion por ejemplo, cuando lo hago retornando una variable lo haria de la siguiente manera:

Code: Select all

Funtion numero(a)

IF a=1
  letra:="UNO"
ELSEIF a=2
  letra:="DOS"
ELSEIF a=3
  letra:="TRES"
ELSE 
  letra:="OTRO"
ENDIF

Return letra
El resultado que obtendria al momento de llamar la función en el siguiente ejemplo seria DOS:

variablequenecesito:= numero(2)

Ahora lo que necesito es poder decidir cual valor del array me retorna... Pero no se como hacerlo por ejemplo

Code: Select all

Funtion numero(a,b,c)

IF a=1
  aletra:= ["UNO","IMPAR","1"]
ELSEIF a=2
  aletra:= ["DOS","PAR","2"]
ELSEIF a=3
  aletra:= ["TRES,"IMPAR","3"]
ELSE 
  aletra:= ["OTRO","OTRO","O"]
ENDIF

Return aletra
Entonces la pregunta es?

Como hago para capturar los datos, al momento de llamar la funcion?

ejemplo:

variablequenecesito:=???????

De antemano gracias

Posted: Thu Jun 12, 2008 3:17 pm
by ARCC
Buen día para todos...

Leandro:

Prueba con esto a ver si es lo que necesitas:

Code: Select all

#include "FiveWin.ch"

Function Main()

   Local aParametro := DevolverArreglo() // Función que devuelve el arreglo

   MsgInfo( aParametro[1] ) // Devuelto de la función DevolverArreglo()
   MsgInfo( aParametro[2] ) // Devuelto de la función DevolverArreglo()
   MsgInfo( aParametro[3] ) // Devuelto de la función DevolverArreglo()
   MsgInfo( aParametro[4] ) // Devuelto de la función DevolverArreglo()
   MsgInfo( aParametro[5] ) // Devuelto de la función DevolverArreglo()
   MsgInfo( aParametro[6] ) // Devuelto de la función DevolverArreglo()

Return Nil

Function DevolverArreglo() // Función que devuelve el arreglo

  Local aArray := Array(6) // Donde Array(6) es el número total de posiciones en el arreglo"

  aArray[1] := "Parametro 1"
  aArray[2] := "Parametro 2"
  aArray[3] := "Parametro 3"
  aArray[4] := "Parametro 4"
  aArray[5] := "Parametro 5"
  aArray[6] := "Parametro X, Donde X es el número total de posiciones en el arreglo"

Return aArray

Posted: Thu Jun 12, 2008 3:30 pm
by leandro
ARCC

Amigo si creo que es lo que necesito voy a probarlo y te comento.. :D

Posted: Thu Jun 12, 2008 4:10 pm
by GUSPRE
De esta manera:

Local var_nece, a_res

a_res:=funcion_llamada(), var_nece:=a_res[1]..o a_res[2]..o la que necesites

Saludos,