我在这个 datetostr 转换中遗漏了什么？ [关闭]

【问题标题】：what am I missing in this datetostr conversion? [closed]我在这个 datetostr 转换中遗漏了什么？ [关闭]
【发布时间】：2016-06-19 22:25:47
【问题描述】：

我认为 devexpress 的新 dxDateTimeWheelPicker 有点可爱，所以我试着看看它是如何工作的。我试图查看当我转动月轮时标签是否会显示月份，但出现类型不兼容错误（日期时间和字符串）。

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

我在这里缺少什么？我必须做些什么才能完成这项工作？

【问题讨论】：

您希望datetimetostr() 会返回什么？

标签： delphi devexpress

【解决方案1】：

您正在声明一个TDateTime 变量：

var
  myDate : TDateTime;

然后，您尝试将一个将TDateTime 转换为String 的函数的结果分配给该变量：

myDate := datetimetostr(dxDateTimeWheelPicker2.DateTime);

所以你当然会遇到类型不兼容的错误，因为TDateTime 与String 的赋值不兼容。但是对于本练习，您只需要 TDateTime 值本身，因此完全不需要这种中间字符串转换。你只需要这个：

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

在这种情况下，如果您愿意，您甚至可以不使用 myDate 变量本身：

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

【讨论】：