FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como hacer para que una funcion regrese varios valores
Hola saludos a todos
y antes que nada gracias a todos por tomarse el tiempo de leer este hilo si alguien pudiera ayudarme(por favor ) mil gracias esta es mi Duda : Tengo Un formulario que quiero utlilizar para seleccionar un rango de fechas( este regresa un valor "True" si se da click en el botón "Si" o "false" si se da click en el botón "No") y la funcion donde lo mando llamar recibe como parametros a demás de otros las fechas mi duda es ¿como le regreso el valor de cada fecha a la variable correspondiente ? aqui muestro el codigo que uso : Código Delphi [-] function Input2Fechas(Caption:String;Msg:String;FechaI,FechaF:TDateTime ):Boolean; var FF:TfrmInput2fechas ; begin FF:=TfrmInput2fechas.Create(nil); FF.Caption:=Caption; FF.lblTexto.Caption:=Msg; FF.ShowModal; FechaI:=FF.txtInicio.date; FechaF:=FF.txtFin.date; result:=FF.Resultado; FF.Destroy; end; Este es un ej. de como quiero utilizar las fechas Código Delphi [-] procedure TForm1.btnpruebaClick(Sender: TObject); var Fecha1,Fecha2:TDate; begin if not Input2Fechas('Ejemplo','Introdusca las Fechas ',Fecha1,Fecha2) then showmessage('No se capturaron las fechas') else showmessage('Fecha 1: '+datetostr(Fecha)+' Fecha2: '+datetostr(Fecha2)); end; gracias por su ayuda |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como hacer una funcion DESHACER | newbery | Gráficos | 8 | 13-01-2009 22:17:26 |
Cómo puedo hacer para que una variable valga 2 valores al mismo tiempo | wlad | Internet | 15 | 19-12-2007 18:06:03 |
Cómo hacer para que muchos checkbox usen la misma función? | Shikanda | Varios | 7 | 12-09-2007 17:27:48 |
problema para devolver 2 valores en una funcion | tiagor64 | OOP | 4 | 06-05-2005 15:38:59 |
Como hacer un insert de varios registros | fredy_boots | SQL | 2 | 25-11-2003 14:55:37 |
|