喫茶XRAY [Mr.XRAY掲示板]

『元号西暦コンボボックステーブル』

これは delphi とキーワードはありません．
具体的な目的も分かりませんが，参考として．元号のリストの取得方法です．
詳しくは，以下を参考にしてください．

[delphi XE5対応元号選択式日付時刻入力コンポーネントTplDateEdit ; 山本隆の開発日誌]
http://www.gesource.jp/weblog/?p=6202

元号と和暦の対応は，日付のフォーマット，あるいはデコードやエンコードで
対応できると思います．

//=============================================================================
//  元号のリストを作成
//  Delhi XE4以前用
//  MaxEraCountはSysUtilsで定義されている
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  ListBox1.Items.Clear;

  for i := 1 to MaxEraCount do begin
    if EraNames[i]='' then break;
    ListBox1.Items.Add(EraNames[i]);
  end;
end;

//=============================================================================
//  元号のリストを作成
//  Delhi XE5以降用
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFormatSettings : TFormatSettings;
  LEraNames       : array of string;
  LMaxEraCount    : Integer;
  i               : Integer;
begin
  ListBox1.Items.Clear;

  LFormatSettings := TFormatSettings.Create;
  LMaxEraCount    := Length(FormatSettings.EraInfo);
  SetLength(LEraNames, LMaxEraCount + 1);

  for i := 0 to LMaxEraCount - 1 do begin
    LEraNames[i + 1] := LFormatSettings.EraInfo[I].EraName;
    ListBox1.Items.Add(LEraNames[i + 1]);
  end;
end;