FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
problema para devolver 2 valores en una funcion
Hola:
Estoy trabajando en un programa que me lee un condigo desde un edit, y tendria que devolverme despues de buscar en una funcion dos strings, uno con la descripcion y otro con las unidades y no se como hacerlo, os pego un trozo de codigo. Código:
function tform4.buscararticulo(celda : string) : string; begin qrycache.sql.text := 'select descripcion from articulos_cache where codigo = '' '+celda+''''; qrycache.Open; if dsarticulocache.DataSet.FieldByName('descripcion').AsString = '' then result := 'CODIGO NO ENCONTRADO' else result := dsarticulocache.DataSet.FieldByName('descripcion').AsString; end; procedure TForm4.Edit4Exit(Sender: TObject); begin edit5.text := buscararticulo(edit4.Text); end; procedure TForm4.Edit7Exit(Sender: TObject); begin edit8.text := buscararticulo(edit7.Text); end; Muchas gracias de antemano. |
#2
|
||||
|
||||
Hola tiagor64,
se me ocurren varias maneras: Si esa "función" la vas a usar para pintar en los mismos edit siempre, puedes modificar directamente dentro de la funcion dichos edits, y la pondríamos como procedimiento. Es decir,
En otro caso tambien puedes hacer un procedimiento que pase 2 variables por "referencia":
Un saludo. |
#3
|
||||
|
||||
Cita:
En el primero estás perdiendo toda la abstracción/encapsulación.
__________________
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
|
||||
|
||||
Tienes razón, es una guarrada de solución, pero...
un saludo. |
#5
|
|||
|
|||
muchas gracias, me ha servido la solucion.
|
|
|
|