Ver Mensaje Individual
  #4  
Antiguo 11-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Jose Roman.

De allí la pregunta de Casimiro ya que, en el caso de las cadenas de caracteres, te conviene traer los datos en mayúsculas diréctamente desde la consulta.

Por ejemplo:
Código SQL [-]
SELECT UPPER(DETALLE), ..., FECHA FROM TU_TABLA
El tema de las fechas es distinto... No tengo el componente TFIBDataSet, sin embargo creo que esto tendría que funcionarte:
Código Delphi [-]
...
implementation

const
  MNAME: array[1..12] of string = ('ENE','FEB','MAR','ABR',
    'MAY','JUN','JUL','AGO','SEP','OCT','NOV','DIC');
var
  AuxMonth: array[1..12] of string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  move(SysUtils.ShortMonthNames, AuxMonth, SizeOf(SysUtils.ShortMonthNames));
  move(MNAME, SysUtils.ShortMonthNames, SizeOf(MNAME));

  TDateField(FibDataSet1.FieldByName('FECHA')).DisplayFormat:= 'dd/mmm/yy';
  FibDataSet1.Open;
end;

//...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  move(AuxMonth, SysUtils.ShortMonthNames, SizeOf(AuxMonth));
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 11-09-2014 a las 05:11:29. Razón: corregir nombre de campo
Responder Con Cita