Foros Club Delphi - Como poner primer letra Mayuscula en el mes?.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como poner primer letra Mayuscula en el mes?. (https://www.clubdelphi.com/foros/showthread.php?t=11501)

Como poner primer letra Mayuscula en el mes?.

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:

Código:

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 :confused: pero no cambia el mes.

Alguna idea de porq no cambia?.

Salu2.

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

Cita:

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:

Código:

  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)

Código:

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.

Ya lo aplique a mi proyecto y funciona.
Gracias.

Salu2.