名前
題名
▼ 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; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link