Question

从Delphi XE迁移到XE5。

Label1.Caption:= 'Today''s day is '+LongDayNames[DayOfWeek(Date)];

＆＃39; LongDayNames＆＃39;不再有效。我看到德尔福将这些用于我的用途：

System.SysUtils, System.Variants, System.Classes,

如何找到＆＃39; LongDayNames＆＃39;它有效吗？

Answer 1

您使用SysUtils.FormatSettings全局变量中包含的值：

Label1.Caption := SysUtils.FormatSettings.LongDayNames[DayOfWeek(Date)];

这允许它们根据当前的Windows语言环境进行本地化。

请注意，使用全局SysUtils.FormatSettings不是线程安全的。要创建格式设置的线程安全副本，请使用TFormatSettings创建TFormatSettings.Create的本地副本，而不是documentation here中所述。

Answer 2

我使用这种方式为我的国家巴西个性化了长名称：记得添加使用System.SysUtils

FormatSettings.LongDayNames[1] := 'Domingo';
FormatSettings.LongDayNames[2] := 'Segunda';
FormatSettings.LongDayNames[3] := 'Terça';
FormatSettings.LongDayNames[4] := 'Quarta';
FormatSettings.LongDayNames[5] := 'Quinta';
FormatSettings.LongDayNames[6] := 'Sexta';
FormatSettings.LongDayNames[7] := 'Sábado';

LongDayNames - 最初在SysUtils中

2 个答案: