delphi - EraNames 在 Delphi XE5 中去了哪里？

Question

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

IE：

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

Answer 1

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

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

FormatSettings 现在包含一个 EraInfo Records 数组。

for循环可以写成：

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