![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() Hola a todos.
![]() Estoy realizando una aplicación en que los datos que ingresen en un edit y se muestren en una grilla se vean como valores enteros, pero que en realidad sean del tipo TDateTime. El valor que ingreso quiero que se refiera a los minutos. Desde ya muchas gracias. Saludos. ![]() |
#2
|
||||
|
||||
No indicas si estos datos están en una tabla o no... cómo te referis a una grilla asumo que si.
Entonces, podes basarte en los eventos OnGetText y OnSetText para convertir el valor del TDateTime en la representación que te convenga y viceversa. Hasta luego. ![]() |
#3
|
|||
|
|||
Muchas gracias por constestar.
![]() Sería mucho pedir un ejemplo así lo pudiera comprender. Saludos. ![]() |
#4
|
||||
|
||||
Código:
Procedure Form1Table1Campo1GetText(Field : TField; var Text : String); // de los parámetros no me recuerdo bien... Begin Case Tabla1Campo1.AsInteger of 1 : Text := 'uno'; 2 : Text := 'dos'; 3 : Text := 'tres'; 4 : Text := 'cuatro'; else Text := 'mayor que cuatro'; end; end; Procedure Form1Table1Campo1SetText(Field : TField; const Text : String); // de los parámetros no me recuerdo bien... Begin if text = 'uno' Then Tabla1Campo1.AsInteger := 1 else if text = 'dos' Then Tabla1Campo1.AsInteger := 2 else if text = 'tres' Then Tabla1Campo1.AsInteger := 3 else if text = 'cuatro' Then Tabla1Campo1.AsInteger := 4 else raise exception.Create('Valor inválido para este campo!'); end; Hasta luego. ![]()
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#5
|
|||
|
|||
Muchas gracias Juan Antonio.
El ejemplo que pusiste se me hace muy difícil adaptarlo a mis necesidades. Serías tan amable de poner algo para que me fuera un poco más útil. Disculpá las molestias. Saludos. ![]() |
#6
|
||||
|
||||
Cita:
// Saludos |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|