Código:
var // Inicia Procedure crea_xdocto
qAux:TQuery;
cadenaX,inicio : widestring;
el_identificador : TipoIdentificador;
la_fecha:TXSDate;
begin
la_fecha := TXSDate.Create;
...
la_fecha.AsDate := qAux.fieldByName('fecha_expedicion').AsDateTime;
ShowMessage(Format('%d/%d/%d', [la_fecha.Day, la_fecha.Month, la_fecha.Year]));
CORRECTO!!!!
Me desplego el valor correcto: 21/10/2011. Excelente.
La verdad que el foro me ha sacado de grandes problemas y dudas, mucho mejor que acudir con mis compañeros, que todo se lo guardan. Muchas gracias y saludos.
Por hoy me voy tranquilo a casa, ya mañana los sigo bombardeando con dudas.