2013-10-22 3 views
8

단위 SysUtils (System.SysUtils)에 더 이상 EraNames 또는 FormatSettings.EraNames이 없습니다. 그 대체품은 무엇이며 어디로 갔습니까?EraNames는 어디에서 Delphi XE5로 들어갔습니까?

즉 :이 사람을 도움이 될 생각했기 때문에

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

답변

9

난 내 자신의 질문에 대답하고있다.

FormatSettings.EraInfo[x].EraName 및 기타 EraInfo 레코드 속성을 사용하십시오.

FormatSettings에는 이제 EraInfo 레코드의 배열이 저장됩니다. 루프

를 쓸 수있다 :

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

그리고 무엇'EraYearOffsets' 대해를? – Dmitry

+1

FormatSettings.GetEraYearOffset (FormatSettings.EraInfo [I] .EraName) – Dmitry