FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
functions
Wenasss!! Os hago una preguntilla tonta pero que me hace falta
Una function puede devolver 2 enteros distintos? Ej: function asientos(Grid:TStringGrid; col,fil:integer; texto:TEdit; progreso:TProgressBar; dinero:integer; porcenta:integer):integer; ... result:=dinero; result:=porcenta; Y despues en la llamada.. caja:=asientos(StringGrid1,ACol,ARow,Edit1,ProgressBar1,caja,porcentaje); porcentaje:=asientos(StringGrid1,ACol,ARow,Edit1,ProgressBar1,caja,porcentaje); Edit1.Text:=IntToStr(porcentaje); Aver si m podeis echar una mano.. y decirme si se puede y si seria asi. Muchas Gracias!! |
#2
|
||||
|
||||
No... pero sí :)
Lo que puedes hacer es definirte:
Y luego usarlo como resultado de tu función:
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
#3
|
||||
|
||||
La otra opción es que la conviertas en un procedure y utilices parámetros variables.
NOTA: Utiliza el "TAG delphi" cuando añadas código a los mensajes (ultimo icono del editor de mensajes).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
|||
|
|||
functions
Ufff parece que va de perlas, pero.. no te habia dicho que mi funcion esta en otra Unit distinta no? sorry.
Esque tengo varias units y tengo una units donde estan todos los procedimientos y funciones, y necesito que una de esas funciones le duelva 2 enteros a todas las demas units. Ya me he definido el typo record como me habia dicho, pero cuando me voy a la Unit de los procedimientos y funciones cuando pongo result.money:=dinero... me dice que no. Tambien era de esperar. Hay alguna solucion. Gracias! y perdona por las molestias. |
#5
|
||||
|
||||
Simplemente declara el record en la misma unit en que tienes la definición de tu función.
y cuando la llames puedes hacer algo así:
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) Última edición por Ohcan fecha: 03-02-2006 a las 13:58:53. |
#6
|
||||
|
||||
o también:
Esta segunda opción es mejor (creo), ya que en el post anterior ejecutarías dos veces la funcion y con esta otra sólo una. Y podrías hacer varRecor.money y varRecord.percent Saludos.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) Última edición por Ohcan fecha: 03-02-2006 a las 14:05:19. |
#7
|
|||
|
|||
Muchas graciass Ohcan! me ha servido todo!
Estoy empezando con esto de delphi, y me gusta, xD Hasta otra! |
#8
|
||||
|
||||
De nada
Y cuidado... ¡que engancha! ;D
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
#9
|
||||
|
||||
Otra forma seria el paso de parametros por referencia
Otra forma, sencillita tambien seria el paso de parametros por referencia.
Aqui el ejemplo:
Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Nested Aggregate Functions | bartHo | Firebird e Interbase | 8 | 20-05-2005 01:50:34 |
UDF funciones / Functions firebird | ASAPLTDA | Firebird e Interbase | 3 | 01-04-2005 17:38:26 |
Error loading functions from DLL | MarioATamborini | Firebird e Interbase | 2 | 01-03-2005 14:19:44 |
¿Cómo puedo enviar y recibir archivos vía IRC con el componente TIdIRC? | DarkByte | Internet | 4 | 26-06-2004 17:54:05 |
|