Куда пропали EraNames в Delphi XE5?

Модуль SysUtils (System.SysUtils) больше не имеет EraNames или FormatSettings.EraNames. Какая ему замена и куда она делась?

i.e:

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

delphi delphi-xe5
person Warren P    schedule 22.10.2013    source источник

Ответы (1)


arrow_upward
11
arrow_downward

Я отвечаю на свой вопрос, потому что подумал, что это может кому-то помочь.

Используйте FormatSettings.EraInfo[x].EraName и другие свойства записи EraInfo.

FormatSettings теперь содержит массив записей EraInfo.

Цикл for можно записать так:

   for I := Low(FormatSettings.EraInfo) to High(FormatSettings.EraInfo) do
   begin
     ...
   end;
person Warren P    schedule 22.10.2013
comment
А как же EraYearOffsets? - person Dmitry; 28.03.2014
comment
FormatSettings.GetEraYearOffset(FormatSettings.EraInfo[I].EraName) - person Dmitry; 28.03.2014