« ■Delphi8の本 | トップページ | ★RichEdit と '×' »

☆DateToStr関数

[Delphi8 - VCLフォームアプリケーション]
TMonthCalendarで選択された日付を文字型に変更しようと次のような処理をしました。

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(DateToStr(MonthCalendar1.Date));
end;

これはDelphi7では、問題なかったコードですが、コンパイルすると次のようなメッセージが表示されてエラーになります。
[エラー] Unit1.pas(31): 指定された引数で呼び出すことのできるオーバーロード関数 'DateToStr' が定義されていません

次のように型キャストすることで解決しました。
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(DateToStr(TDateTime(MonthCalendar1.Date)));
end;

|

« ■Delphi8の本 | トップページ | ★RichEdit と '×' »