EraNames ở đâu trong Delphi XE5?

Question

Đơn vị SysUtils (System.SysUtils) không còn có EraNames hoặc FormatSettings.EraNames. Thay thế của nó là gì và nó đã đi đâu?

tức là:

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

Answer 1

tôi trả lời câu hỏi của riêng tôi bởi vì tôi nghĩ rằng điều này có thể giúp ai đó.

Sử dụng FormatSettings.EraInfo[x].EraName và các thuộc tính khác của bản ghi EraInfo.

FormatSettings hiện giữ một mảng bản ghi EraInfo.

Vòng lặp for có thể được viết:

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