Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-02-2004
lore lore is offline
Miembro
 
Registrado: sep 2003
Posts: 17
Poder: 0
lore Va por buen camino
Unhappy Conversión del tiempo

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.
Responder Con Cita
  #2  
Antiguo 23-02-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
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.

Responder Con Cita
  #3  
Antiguo 23-02-2004
lore lore is offline
Miembro
 
Registrado: sep 2003
Posts: 17
Poder: 0
lore Va por buen camino
Muchas gracias por constestar.

Sería mucho pedir un ejemplo así lo pudiera comprender.

Saludos.
Responder Con Cita
  #4  
Antiguo 24-02-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
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;
algo asi...

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #5  
Antiguo 25-02-2004
lore lore is offline
Miembro
 
Registrado: sep 2003
Posts: 17
Poder: 0
lore Va por buen camino
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.
Responder Con Cita
  #6  
Antiguo 25-02-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por lore
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.
¿En qué no se adapta a tus necesidades? El ejemplo del compañero Jachguate es un perfecto ejemplo general para saber cómo manejar los eventos y hacer las conversiones que consultaste. ¿Qué más deseas?

// Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:25:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi