Delphi XE5で和暦の元号を取得するには

Delphi XE3ではSystem.SysUtilsユニットのEraNames変数から和暦の元号を取得できました。

uses
  System.SysUtils;
var
  Era:string;
begin
  for Era in EraNames do
  begin
    Writeln(Era);
  end;
end.

実行結果

平成
昭和
大正
明治

Delphi XE5ではEraNamesが廃止されています。

Delphi XE5で元号を取得するには、System.SysUtilsユニットのTFormatSettings.TEraInfoを使用します。

uses
  System.SysUtils;
var
  FormatSettings: TFormatSettings;
  EraInfo: TFormatSettings.TEraInfo;
begin
  FormatSettings := TFormatSettings.Create;
  for EraInfo in FormatSettings.EraInfo do
  begin
    WriteLn(EraInfo.EraName);
  end;
end.

実行結果

平成
昭和
大正
明治

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください