单元SysUtils(System.SysUtils)不再具有EraNames或FormatSettings.EraNames.什么是它的替代品,它去了哪里？
即：
for I := Low(SysUtils.EraNames) to High(SysUtils.EraNames) do
begin
..
end;
解决方法
我正在回答我自己的问题,因为我觉得这可能对某人有所帮助.
使用FormatSettings.EraInfo [x] .EraName和EraInfo记录的其他属性.
FormatSettings现在包含一个EraInfo记录数组.
for循环可以写成：
for I := Low(FormatSettings.EraInfo) to High(FormatSettings.EraInfo) do
begin
...
end;