UpperCase en DBGrid

[Jose Roman]

Les informo que funciono el codigo sugerido por ecfisa, solo unas modificaciones para aquellos que estamos trabajando con XE en adelante, en vez de SysUtils.ShortMonthNames deben utilizar FormatSettings.ShortMonthNames y la parte donde se busca el campo con la fecha debe declararse despues de abrir la tabla ya que genera un error al no encontrar el campo, entonces el codigo fuente queda asi:

Código Delphi [-]
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(FormatSettings.ShortMonthNames, AuxMonth, SizeOf(FormatSettings.ShortMonthNames));
  move(MNAME,FormatSettings.ShortMonthNames, SizeOf(MNAME));
  Database.Connected := True;
  Transaction.StartTransaction;
  tbKardex.Open;
  TDateField(tbKardex.FieldByName('ID_FEC')).DisplayFormat:= 'dd/mmm/yy';
end;

[Jose Roman]

Empezado por Jose Roman

Les informo que funciono el codigo sugerido por ecfisa, solo unas modificaciones para aquellos que estamos trabajando con XE en adelante, en vez de SysUtils.ShortMonthNames deben utilizar FormatSettings.ShortMonthNames y la parte donde se busca el campo con la fecha debe declararse despues de abrir la tabla ya que genera un error al no encontrar el campo, entonces el codigo fuente queda asi:

Código Delphi [-]
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(FormatSettings.ShortMonthNames, AuxMonth, SizeOf(FormatSettings.ShortMonthNames));
  move(MNAME,FormatSettings.ShortMonthNames, SizeOf(MNAME));
  Database.Connected := True;
  Transaction.StartTransaction;
  tbKardex.Open;
  TDateField(tbKardex.FieldByName('ID_FEC')).DisplayFormat:= 'dd/mmm/yy';
end;

Ahora me surgio la duda, ¿Y para mostrar AM o PM en lugar de am o pm?

[Caminante]

Hola a todos.

Si la finalidad es solo visualizar los datos en mayusculas ¿no basta con el evento ongettext?

Saludos

[ecfisa]

Hola Jose Roman.

Empezado por Jose Roman

Ahora me surgio la duda, ¿Y para mostrar AM o PM en lugar de am o pm?

Estimo que bastaría agregarlo a la cadena de formato:

Código Delphi [-]
 TDateField(FibDataSet1.FieldByName('FECHA')).DisplayFormat:= 'dd/mmm/yy h:m:s AM/PM';

Saludos