SysUtils.LongDayNames未声明的标识符

Question

我是delphi的新手,我尝试了以下代码

procedure TForm1.Button1Click(Sender: TObject);
var
  myDate : TDateTime;
  day    : string;

begin
  myDate := EncodeDate(2002, 12, 31);

  day := LongDayNames[DayOfWeek(myDate)];

  ShowMessage('Christmas day 2002 is on a '+day);
end;

我已经System.SysUtils在Uses部分声明但仍然得到错误未声明的标识符.

我使用的是Delphi XE3 17.0

Answer 1

在XE2中,LongDayNames移动到TFormatSettings. http://docwiki.embarcadero.com/Libraries/XE2/en/System.SysUtils.TFormatSettings.

所以你可以使用:

day := FormatSettings.LongDayNames[DayOfWeek(myDate)];

FormatSettings不是线程安全的全局变量.

如何使用它你可以在这里看到它