2013-10-22 10 views
8

SysUtils (System.SysUtils) biriminin artık bir EraNames veya FormatSettings.EraNames vardır. Değişimi nedir ve nereye gitti?EraNames Delphi XE5'te nereye gitti?

yani: Bu birine yardım düşündüm çünkü

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

cevap

9

Benim kendi soru yanıtlama.

FormatSettings.EraInfo[x].EraName ve EraInfo kaydının diğer özelliklerini kullanın.

FormatSettings, artık bir EraInfo Records Array dizisine sahiptir. döngü

yazılmış olabilir:

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

Ya 'EraYearOffsets' olacak? – Dmitry

+1

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