このdatetostr変換には何が欠けていますか？

Question

私はdevexpressからの新しいdxDateTimeWheelPickerがかわいいと思ったので、どのように動作するのか試してみました。私は月のホイールを回したときにラベルが月を表示するかどうかを調べようとしましたが、互換性のない型エラー（DateTimeと文字列）が発生します。

procedure TForm3.dxDateTimeWheelPicker2PropertiesChange(Sender: TObject); 
var 
myDate : TDateTime; 
begin 
myDate := datetimetostr(dxDateTimeWheelPicker2.DateTime); 
label1.Caption := formatdatetime('mm', myDate); 
end; 

ここでは何が欠けていますか？私はこの仕事をするために何をしなければならないのですか？だから、

myDate := datetimetostr(dxDateTimeWheelPicker2.DateTime); 

：あなたは、この変数にTDateTime文字列に変換する関数の結果を割り当てるしようとしている

var 
    myDate : TDateTime; 

：

Answer 1

あなたはTDateTime変数を宣言していますもちろんTDateTimeはStringと割り当て互換ではないため、互換性のない型エラーが発生します。しかし、この演習では、TDateTime値だけが必要なので、中間の文字列変換はまったく必要ありません。あなたが望んだ場合、あなたもmyDate変数自体せずに行うことができます。この場合

myDate := dxDateTimeWheelPicker2.DateTime; 
label1.Caption := formatdatetime('mm', myDate); 

：

label1.Caption := formatdatetime('mm', dxDateTimeWheelPicker2.DateTime);