Error de la funcion ShortMonthNames() en XE10
 

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:eek:

Hola

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

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

Gracias chicos
 

Fue de mucha utilidad esta informacion, gracias a ambos