Como poner primer letra Mayuscula en el mes?.

[nefy]

Hola deseo poner la primer letra del mes en mayuscula (Ene), tanto en mis campos como en los controles de Delphi q tomen la fecha del sistema. Ya cambie la configuracion del formato (dd/MMM/yyyy) de la fecha corta en mi windows (2000) en la pestaña "Date" de "Regional Options", y Delphi seguia mostrandome en los reportes el mes solo con minusculas. Asi q aunq parece innecesario le asigne el mismo formato a la variable ShortDateFormat al crear mi aplicacion, y aun seguia mostrando el mes igual asi q le asigne a un QrLabel la fecha asi:

LblFechaInicioRecibos.Caption:=FormatDateTime('dd/MMM/yyyy',EdtInicio.Date);

pero sigue el mes en minusculas. Ademas trato de hacer lo mismo en los campos persistentes asignando el mismo formato a la propiedad DisplayFormat pero no cambia el mes.

Alguna idea de porq no cambia?.

Salu2.

[[Lepe]]

En la unidad SysUtils hay varias variables que definen esas cositas:

ShortMonthNames: array[1..12] of string;
LongMonthNames: array[1..12] of string;
ShortDayNames: array[1..7] of string;
LongDayNames: array[1..7] of string;

Dale en tu proyecto a Projects-->view Source, allí escribe lo siguiente:

  sysutils.ShortMonthNames[5] := 'MaY';
  sysutils.ShortMonthNames[6] := 'JuN';
  // así redefines las cadenas de texto que quieres que use tu programa sin  
// modificar las de windows

De ahora en adelante tu aplicación usará estas cadenas cuando formatees la fecha con el parámetro "mmm" (fecha de mes corto)

  ShowMessage(FormatDateTime('dd/mmm/yyyy',Date))

Nota:
lo intenté en la parte initialization de un Form, pero no se lo tragó delphi, así que lo he redefinido en el codigo del proyecto y si furula, si alguien conoce un lugar mas apropiado para redefinirlo, que no se lo guarde por fa

Por supuesto, tendrás que añadir el uses Sysutils en Projects --> view source.


Saludos.

[nefy]

Ya lo aplique a mi proyecto y funciona.
Gracias.

Salu2.