Formato Fecha en un DBGrid

[javicho_villa]

Muchas gracias por ayudarme, les adjunto una imagen con la imagen del dbgrid como se muestra y la estructura de la tabla.

[javicho_villa]

Les paso la estructura en sql

Código SQL [-]
USE [Textil]
GO

/****** Object:  Table [dbo].[Guia]    Script Date: 01/07/2019 12:26:36  ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[Guia](
  [Id_Guia] [int] NOT NULL,
  [Id_Cliente] [int] NULL,
  [Id_ClienteTerceroTransporte] [int] NULL,
  [Id_ClienteTerceroProveedor] [int] NULL,
  [Id_Venta] [int] NULL,
  [Id_Pedido] [int] NULL,
  [Id_Parametro_TipoDoc] [int] NULL,
  [Id_Parametro_Motivo] [int] NULL,
  [NumeroDoc] [varchar](20) NULL,
  [Serie] [varchar](6) NULL,
  [Numero] [int] NULL,
  [Fecha] [date] NULL,
  [Destinatario] [varchar](100) NULL,
  [Direccion] [varchar](100) NULL,
  [DomicilioDestino] [varchar](100) NULL,
  [DomicilioPartida] [varchar](100) NULL,
  [Marca] [varchar](20) NULL,
  [Placa] [varchar](10) NULL,
  [Otros] [varchar](100) NULL,
  [OrdenCompra] [varchar](50) NULL,
  [Observaciones] [varchar](50) NULL,
  [Cliente] [bit] NULL,
  [Facturado] [bit] NULL,
  [Id_Usuario] [int] NULL,
  [FRegistro] [date] NULL,
 CONSTRAINT [PK_Guia] PRIMARY KEY CLUSTERED 
(
  [Id_Guia] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

[[oscarac]]

que raro

si el campo es fecha, jalandolo con .asdatetime es suficiente

[javicho_villa]

Después de mucho tiempo, me puse a tratar de solucionar este viejo problema y encontré la solución:

1. Tienes que agregar en el componente AdoQuery los Campos que vas a utilizar, en este caso en el campo fecha, dentro del evento OnGetText puse el siguiente código:

Código Delphi [-]
procedure TKardexForm.CabeceraADOQueryFechaGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
 Text := FormatDateTime('dd/mm/yyyy', VarToDateTime(CabeceraADOQuery.FieldByName('Fecha').AsVariant));
end;

y funciono muy bien, muchas gracias a todos ustedes por tomarse la molestia de ayudarme me dieron la ruta para solucionar este pequeño problema.
saludos a todos.