Como poner primer letra Mayuscula en el mes?.

[[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.