Error de la funcion ShortMonthNames() en XE10

[darkamerico]

Saludos amigos, tengo la clase siguiente:

Código Delphi [-]
uses System.SysUtils, VCL.Dialogs, System.DateUtils;

type
  TDate = class
    mes, dia, anio: integer;

    procedure setFecha(m, d, a: Integer);
    function getFecha():string; overload;
    function getFecha(formato:char):string; overload;
    function esBisiesto():boolean;
    function queDiaEs():string;
  end;

...

function TDate.getFecha:string;
begin
  getFecha:=IntToStr(dia)+'/'+IntToStr(mes)+'/'+IntToStr(anio);
end;

function TDate.getFecha(formato:char):string;
begin
  getFecha:='Hoy es ' + queDiaEs + ', ' + IntToStr(dia) +
            ' de ' + ShortMonthNames[mes] +
            ' del ' + IntToStr(anio);
end;

...

begin
  try
    fecha:=TDate.Create();
    fecha.setFecha(3,30,2016);
    ShowMessage('Fecha Ingresada:' + fecha.getFecha());
    ShowMessage(fecha.queDiaEs);
  finally
    fecha.Free;
  end;
end.

El error aparece en la linea ShortMonthNames[mes], dice E2003 Undeclared identifier: 'ShortMonthNames'
Pero según la bibliografia esa función esta dentro de System.SysUtils...


Ayuda pleaseee


Americo

[[egostar]]

Hola

Empezado por darkamerico

.....El error aparece en la linea ShortMonthNames[mes], dice E2003 Undeclared identifier: 'ShortMonthNames'
Pero según la bibliografia esa función esta dentro de System.SysUtils...

En versiones anteriores el arreglo ShortMonthNames era una variable global, ahora la han encapsulado dentro de TFormatSettings, por lo que ahora se tiene que crear primero el record y después ya podrás utilizar el arreglo de meses cortos.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Mes  : string;
  FS: TFormatSettings;
begin
  FS := TFormatSettings.Create;
  Mes  := FS.ShortMonthNames[12];
  ShowMessage('Mes 12 = ' + Mes);
end;

Saludos

[[AgustinOrtu]]

Por otro lado ten en cuenta que llamaste a tu clase TDate, yo le cambiaria el nombre porque colisiona con el tipo primitivo TDate que ya viene con Delphi

Es simplemente para ahorrarse problemas en el futuro

A menos claro, que lo estes haciendo de forma consciente y quieras ocultar el tipo primitivo con la clase

[darkamerico]

Fue de mucha utilidad esta informacion, gracias a ambos