Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-06-2004
zachariel zachariel is offline
Registrado
 
Registrado: jun 2004
Posts: 1
Poder: 0
zachariel Va por buen camino
Exclamation Formato a la salida en un tdbgrid

Algun experto en delphi que pudiera orientarme en como darle formato a la salida que presenta un TDBGrid , ya que no lo he podido lograr.... se los agradeceria mucho..
Responder Con Cita
  #2  
Antiguo 10-06-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Te recomiendo que le des el formato a los campos que cargan el DBGrid, y tanto el DBGrid como la mayoría de los componentes dbaware que reflejen estos datos los tomarán.
Te sugiero que investigues las propiedades de los TFields y sus derivados.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 10-06-2004
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Poder: 22
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Otra alternativa

Yo utilizo una grilla para mostrar el contenido de varias tablas, y que cada campo numerico o fecha me la muestre con formato.

La diferencia con la respuesta anterior es que no necesitas tener creados los TFIELDS en la tabla.

Usa este procedimiento despues de abrir la tabla

Tabla.Open;
SetFormatoGrilla( DBGrid ) //DBGrid es la grilla que muestra los datos...

Código:
Procedure TMaster.SetFormatoGrilla(Sender:TDBGrid);
Var
    Index:Integer;
Begin
     For Index:=0 To (Sender.FieldCount-1) Do
     Begin
           Try
              Case (Sender.Fields[Index].DataType) Of
                   ftSmallint:TSmallIntField(Sender.Fields[Index] ).DisplayFormat :='#0';
                   ftInteger :TIntegerField(Sender.Fields[Index] ).DisplayFormat  :='#0';
                   ftFloat   :TFloatField( Sender.Fields[Index] ).DisplayFormat   :='###,##0.00';
                   ftDate	 :TDatetimeField( Sender.Fields[Index] ).DisplayFormat:='dd/mm/yyyy';
              End;

           Except
                 
           End;
     End;

End;
Saludos de Christian
Concepcion-Chile
Responder Con Cita
  #4  
Antiguo 10-06-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por cloayza
La diferencia con la respuesta anterior es que no necesitas tener creados los TFIELDS en la tabla.
Supongo que hablas de tener campos persistentes, creados en tiempo de diseño, y en ningún momento dije eso...
En tu ejemplo también estan creados los campos, dinámicamente supongo, pero creados al fin.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.

Última edición por delphi.com.ar fecha: 10-06-2004 a las 21:10:46.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 18:18:39.


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