EraNames 在 Delphi XE5 中去了哪里？

【问题标题】：Where did EraNames go in Delphi XE5?EraNames 在 Delphi XE5 中去了哪里？
【发布时间】：2013-10-22 01:04:12
【问题描述】：

单元 SysUtils (System.SysUtils) 不再有 EraNames 或 FormatSettings.EraNames。它的替代品是什么，它去了哪里？

即：

 for I := Low(SysUtils.EraNames) to High(SysUtils.EraNames) do
    begin
      ..
    end;

【问题讨论】：

【解决方案1】：

我正在回答我自己的问题，因为我认为这可能会对某人有所帮助。

使用 FormatSettings.EraInfo[x].EraName 和 EraInfo 记录的其他属性。

FormatSettings 现在包含一个 EraInfo 记录数组。

for循环可以写成：

   for I := Low(FormatSettings.EraInfo) to High(FormatSettings.EraInfo) do
   begin
     ...
   end;

【讨论】：