我在這個datetostr轉換中錯過了什麼？

Question

我認爲從devexpress新的dxDateTimeWheelPicker是可愛的，所以我試圖看看它是如何工作的。我試圖查看標籤是否顯示當月轉動月份的月份，但是我得到不兼容的類型錯誤（日期時間和字符串）。

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

我在這裏錯過了什麼？我該做些什麼才能做到這一點？

Answer 1

您聲明TDateTime變量：

var 
    myDate : TDateTime; 

那麼您正在嘗試將分配給該變量的函數，其轉換TDateTime爲字符串結果：

myDate := datetimetostr(dxDateTimeWheelPicker2.DateTime); 

所以當然你會得到一個不兼容的類型錯誤，因爲TDateTime與String不兼容。但是對於這個練習，你只需要TDateTime值本身，所以這個中間字符串轉換是完全不必要的。所有你需要的是這樣的：

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

在這種情況下，你甚至可以做到沒有myDate變量本身，如果你想：

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