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レコードの配列が保持されるようになりました。

ループのためのザ・を書き込むことができます。EraYearOffsets` `について

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