名前
題名
▼ Mr.XRAYさん > GetLocaleInfo と SetLocaleInfo で出来るんですね． > 知りませんでした． > > //============================================================================= > // カレンダーの種類の取得と設定 > // 設定を変更すると日付の表示形式も変わってしまう場合がある > // 実際に使用する時は，元の表示形式を退避して，元に戻す方がいいかも知れない > //----------------------------------------------------------------------------- > // > // カレンダーの種類を取得 > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > var > StrText : string; > Size : Integer; > begin > Size := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICALENDARTYPE, nil, 0); > SetLength(StrText, Size); > > GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICALENDARTYPE, PChar(StrText), Size); > > if StrToInt(StrText) = CAL_JAPAN then begin > ShowMessage('和暦'); > end else > if StrToInt(StrText) = CAL_GREGORIAN then begin > ShowMessage('西暦 (日本語)'); > end else > if StrToInt(StrText) = CAL_GREGORIAN_US then begin > ShowMessage('西暦 (英語)'); > end else begin > ShowMessage('その他の設定'); > end; > end; > > //============================================================================= > // カレンダーの種類を和暦に設定 > //============================================================================= > procedure TForm1.Button2Click(Sender: TObject); > var > StrText : String; > begin > StrText := IntToStr(CAL_JAPAN); > SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICALENDARTYPE, PChar(StrText)); > end; > > //============================================================================= > // カレンダーの種類を西暦に設定 > //============================================================================= > procedure TForm1.Button3Click(Sender: TObject); > var > StrText : String; > begin > StrText := IntToStr(CAL_GREGORIAN); > SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICALENDARTYPE, PChar(StrText)); > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link