掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ド素人の質問です。 (ID:23196)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
＞HOta バージョンは6,0です。 ご指摘ありがとうございます。 procedure TForm1.FormShow(Sender: TObject); begin label1.Caption:=inttostr(calendar1.year) + '年'; label2.Caption:=inttostr(calendar1.month) + '月'; end; procedure TForm1.Button1Click(Sender: TObject); begin calendar1.month:= calendar1.Month-1; label2.Caption:= inttostr(calendar1.Month) + '月'; if calendar1.month < 1 then begin calendar1.month:= 12; calendar1.year:= calendar1.year-1; label1.Caption:= inttostr(calendar1.year) + '年'; end; end calendar1.monthが１になるとそれ以上減ることができず、 何も動かない状態になります。 ifで定義するのにこれでいいかと思ったんですがやっぱり無理でした。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.