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].EraNameEraInfo记录的其他属性.

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

for循环可以写成:

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