EraNames在哪里进入Delphi XE5？

Question

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

即：

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

Answer 1

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

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

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

可以写出for循环：

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