Delphi TDateTimePicker 问题，“无法设置最小/最大范围”答案

【问题标题】：Delphi TDateTimePicker issue, "failed to set min/max range"Delphi TDateTimePicker 问题，“无法设置最小/最大范围”
【发布时间】：2014-06-10 14:05:51
【问题描述】：

我的应用程序的一些用户遇到了一个奇怪的问题，在启动时他们收到了一个异常，其中 datitimepicker 的预定最小/最大日期设置为 1950 年 1 月 1 日 - 2050 年 12 月 31 日。

应用抛出的默认错误信息是

“读取 time1.Max 时出错：设置日历最小/最大范围失败。”

在嵌入调试器（madshi 的 madExcept）后，我在报告中看到：

"读取 time1.MaxDate 时出错：'23:59:59' 不是有效日期，并且时间。”

表单上的对象具有以下属性：

            Date = 39773.494141041670000000
            Format = 'MMM yyyy'
            Time = 39773.494141041670000000
            MaxDate = 55153.999988425920000000
            MinDate = 18264.000000000000000000

知道可能是什么问题吗？

崩溃数据：

主线程（$2b08）：

> 0051501b +0a7 app.exe System.Classes 10430   +5 HandleException
> 00515255 +1f5 app.exe System.Classes 10487  +48 TReader.ReadProperty
> 00514a65 +015 app.exe System.Classes 10233   +1 TReader.ReadDataInner
> 00514a47 +067 app.exe System.Classes 10226  +11 TReader.ReadData
> 0051de05 +001 app.exe System.Classes 15947   +0 TComponent.ReadState
> 0057d017 +02f app.exe Vcl.Controls    5567   +3 TControl.ReadState
> 00581481 +025 app.exe Vcl.Controls    8434   +3 TWinControl.ReadState
> 005148bf +11f app.exe System.Classes 10187  +23 TReader.ReadComponent
> 00514ad9 +089 app.exe System.Classes 10241   +9 TReader.ReadDataInner
> 00514a47 +067 app.exe System.Classes 10226  +11 TReader.ReadData
> 0051de05 +001 app.exe System.Classes 15947   +0 TComponent.ReadState
> 0057d017 +02f app.exe Vcl.Controls    5567   +3 TControl.ReadState
> 00581481 +025 app.exe Vcl.Controls    8434   +3 TWinControl.ReadState
> 00604c4c +028 app.exe Vcl.ExtCtrls   10464   +3
> TCustomCategoryPanel.ReadState 005148bf +11f app.exe System.Classes
> 10187  +23 TReader.ReadComponent 00514ad9 +089 app.exe System.Classes
> 10241   +9 TReader.ReadDataInner 00514a47 +067 app.exe System.Classes
> 10226  +11 TReader.ReadData 0051de05 +001 app.exe System.Classes 15947
> +0 TComponent.ReadState 0057d017 +02f app.exe Vcl.Controls    5567   +3 TControl.ReadState 00581481 +025 app.exe Vcl.Controls    8434   +3 TWinControl.ReadState 005c8523 +00b app.exe Vcl.ComCtrls    6207   +1
> TTabSheet.ReadState 005148bf +11f app.exe System.Classes 10187  +23
> TReader.ReadComponent 00514ad9 +089 app.exe System.Classes 10241   +9
> TReader.ReadDataInner 00514a47 +067 app.exe System.Classes 10226  +11
> TReader.ReadData 0051de05 +001 app.exe System.Classes 15947   +0
> TComponent.ReadState 0057d017 +02f app.exe Vcl.Controls    5567   +3
> TControl.ReadState 00581481 +025 app.exe Vcl.Controls    8434   +3
> TWinControl.ReadState 005148bf +11f app.exe System.Classes 10187  +23
> TReader.ReadComponent 00514ad9 +089 app.exe System.Classes 10241   +9
> TReader.ReadDataInner 00514a18 +038 app.exe System.Classes 10220   +5
> TReader.ReadData 0051de05 +001 app.exe System.Classes 15947   +0
> TComponent.ReadState 0057d017 +02f app.exe Vcl.Controls    5567   +3
> TControl.ReadState 00581481 +025 app.exe Vcl.Controls    8434   +3
> TWinControl.ReadState 0064f15d +06d app.exe Vcl.Forms       3836  +11
> TCustomForm.ReadState 005159d7 +1d7 app.exe System.Classes 10667  +37
> TReader.ReadRootComponent 005109c6 +032 app.exe System.Classes  8269  
> +3 TStream.ReadComponent 0050a37f +057 app.exe System.Classes  3834   +7 InternalReadComponentRes 0050bcbb +05f app.exe System.Classes  3891   +4 InitComponent 0050bd49 +061 app.exe System.Classes  3903   +6 InitInheritedComponent 0064e982 +0c6 app.exe Vcl.Forms       3592  +17
> TCustomForm.Create 006593da +076 app.exe Vcl.Forms      10407  +13
> TApplication.CreateForm 008e146e +cce app.exe app       342 +211
> initialization 74e9919d +00c KERNEL32.DLL                            
> BaseThreadInitThunk
> 
> main thread ($2b08), inner exception level 1:
> >> EConvertError, '23:59:59' is not a valid date and time 0044d219 +019 app.exe System.SysUtils  5387   +1 ConvertErrorFmt 00453b74 +02c app.exe System.SysUtils 19596   +2 StrToDateTime 005dd4e1 +0f5 app.exe
> Vcl.ComCtrls    27328   +6 TCommonCalendar.SetMaxDate 004e873d +06d
> app.exe System.TypInfo   2238   +8
> {System.TypInfo}TPropSet<System.Double>.SetProc 004e729a +066 app.exe
> System.TypInfo   3185   +3 SetFloatProp 005155ff +18b app.exe
> System.Classes  10567  +25 TReader.ReadPropValue 005151f6 +196 app.exe
> System.Classes  10476  +37 TReader.ReadProperty 00514a65 +015 app.exe
> System.Classes  10233   +1 TReader.ReadDataInner 00514a47 +067 app.exe
> System.Classes  10226  +11 TReader.ReadData 0051de05 +001 app.exe
> System.Classes  15947   +0 TComponent.ReadState 0057d017 +02f app.exe
> Vcl.Controls     5567   +3 TControl.ReadState 00581481 +025 app.exe
> Vcl.Controls     8434   +3 TWinControl.ReadState 005148bf +11f app.exe
> System.Classes  10187  +23 TReader.ReadComponent 00514ad9 +089 app.exe
> System.Classes  10241   +9 TReader.ReadDataInner 00514a47 +067 app.exe
> System.Classes  10226  +11 TReader.ReadData 0051de05 +001 app.exe
> System.Classes  15947   +0 TComponent.ReadState 0057d017 +02f app.exe
> Vcl.Controls     5567   +3 TControl.ReadState 00581481 +025 app.exe
> Vcl.Controls     8434   +3 TWinControl.ReadState 00604c4c +028 app.exe
> Vcl.ExtCtrls    10464   +3 TCustomCategoryPanel.ReadState 005148bf
> +11f app.exe System.Classes  10187  +23 TReader.ReadComponent 00514ad9 +089 app.exe System.Classes  10241   +9 TReader.ReadDataInner 00514a47 +067 app.exe System.Classes  10226  +11 TReader.ReadData 0051de05 +001 app.exe System.Classes  15947   +0 TComponent.ReadState 0057d017 +02f
> app.exe Vcl.Controls     5567   +3 TControl.ReadState 00581481 +025
> app.exe Vcl.Controls     8434   +3 TWinControl.ReadState 005c8523 +00b
> app.exe Vcl.ComCtrls     6207   +1 TTabSheet.ReadState 005148bf +11f
> app.exe System.Classes  10187  +23 TReader.ReadComponent 00514ad9 +089
> app.exe System.Classes  10241   +9 TReader.ReadDataInner 00514a47 +067
> app.exe System.Classes  10226  +11 TReader.ReadData 0051de05 +001
> app.exe System.Classes  15947   +0 TComponent.ReadState 0057d017 +02f
> app.exe Vcl.Controls     5567   +3 TControl.ReadState 00581481 +025
> app.exe Vcl.Controls     8434   +3 TWinControl.ReadState 005148bf +11f
> app.exe System.Classes  10187  +23 TReader.ReadComponent 00514ad9 +089
> app.exe System.Classes  10241   +9 TReader.ReadDataInner 00514a18 +038
> app.exe System.Classes  10220   +5 TReader.ReadData 0051de05 +001
> app.exe System.Classes  15947   +0 TComponent.ReadState 0057d017 +02f
> app.exe Vcl.Controls     5567   +3 TControl.ReadState 00581481 +025
> app.exe Vcl.Controls     8434   +3 TWinControl.ReadState 0064f15d +06d
> app.exe Vcl.Forms        3836  +11 TCustomForm.ReadState 005159d7 +1d7
> app.exe System.Classes  10667  +37 TReader.ReadRootComponent 005109c6
> +032 app.exe System.Classes   8269   +3 TStream.ReadComponent 0050a37f +057 app.exe System.Classes   3834   +7 InternalReadComponentRes 0050bcbb +05f app.exe System.Classes   3891   +4 InitComponent
> 0050bd49 +061 app.exe System.Classes   3903   +6
> InitInheritedComponent 0064e982 +0c6 app.exe Vcl.Forms        3592 
> +17 TCustomForm.Create 006593da +076 app.exe Vcl.Forms       10407  +13 TApplication.CreateForm 008e146e +cce app.exe app        342 +211 initialization 74e9919d +00c KERNEL32.DLL                             
> BaseThreadInitThunk

【问题讨论】：

标签： delphi tdatetimepicker

【解决方案1】：

"Failed to set calendar min/max range" 错误意味着DateTime_SetRange() 失败。它可能被赋予了一组无效的 SYSTEMTIME 值，这只是 MaxDate 属性未能从 DFM 正确加载其值的副作用。

"not a valid date and time" 错误来自StrToDateTime()。根据您的调用堆栈，

>> EConvertError, '23:59:59' is not a valid date and time 0044d219 +019 app.exe
System.SysUtils  5387   +1 ConvertErrorFmt 00453b74 +02c app.exe
System.SysUtils 19596   +2 StrToDateTime 005dd4e1 +0f5 app.exe
Vcl.ComCtrls    27328   +6 TCommonCalendar.SetMaxDate 004e873d +06d app.exe

SetMaxDate() 正在呼叫StrToDateTime()。我之前从未见过TDateTimePicker这样做，所以我检查了VCL源，发现调用是在XE5中添加的（并且在最近发布的XE6中仍然存在）：

procedure TCommonCalendar.SetMaxDate(Value: TDate);
begin
  if (FMinDate <> 0.0) and (Value < FMinDate) then
    raise CalExceptionClass.CreateFmt(SDateTimeMin, [DateToStr(FMinDate)]);
  if FMaxDate <> Value then
  begin
    Value := Trunc(Value);
    Value := Value + StrToDateTime('23:59:59'); // <-- HERE
    SetRange(FMinDate, Value);
    FMaxDate := Value;
  end;
end;

在 XE5 之前，SetMaxDate() 看起来像这样：

procedure TCommonCalendar.SetMaxDate(Value: TDate);
begin
  if (FMinDate <> 0.0) and (Value < FMinDate) then
    raise CalExceptionClass.CreateFmt(SDateTimeMin, [DateToStr(FMinDate)]);
  if FMaxDate <> Value then
  begin
    SetRange(FMinDate, Value);
    FMaxDate := Value;
  end;
end;

这只是 Embarcadero 方面的愚蠢，因为 StrToDateTime() 受用户区域设置的影响。显然，故障机器上的时间格式与 Embarcadero 使用的 硬编码 值不匹配。 EncodeTime() 应该被使用：

Value := Value + EncodeTime(23, 59, 59, 0);

事实上，我认为 Embarcadero 也应该使用 ReplaceTime()：

ReplaceTime(Value, EncodeTime(23, 59, 59, 0));

我已在 QC 中提交错误报告：

#124326 MaxDate: '23:59:59' is not a valid date and time

在 Embarcadero 修复它之前，您有两个选择：

手动修补您的 VCL 以修复错误。如果您未在启用运行时包的情况下编译您的应用程序，您可以制作 Vcl.ComCtrls.pas 的副本，根据需要对其进行编辑，然后将副本添加到您的项目中。如果你想要一个更永久的补丁，你可以编译编辑的 Vcl.ComCtrls.pas 并将新的 DCU 文件放在 IDE 的 lib 文件夹中。
在设计时将MaxDate 设置为0.0 设置SetMaxDate() 将不会在DFM 加载时被调用，然后在启动时在您的代码中手动设置MaxDate，因为在表单的OnCreate 事件中。您必须临时更改全局 SysUtils.FormatSettings 变量（很可能只是 FormatSettings.TimeSeparator）以匹配 SetMaxDate() 使用的格式，然后将 MaxDate 分配给所需的值，然后将变量更改回其原始值价值观：
```
var
  TS: Char;

TS := FormatSettings.TimeSeparator;
FormatSettings.TimeSeparator := ':';
try
  DateTimePicker1.MaxDate := ...;
finally
  FormatSettings.TimeSeparator := TS;
end;
```

【讨论】：

好吧，它只发生在少数用户身上，所以我放弃了损坏的 DFM，并认为这可能与用户的区域设置有关。我将编辑问题以包含调用堆栈。
事实证明，确实与地区设置有关。这是Embarcadero 需要修复的SetMaxDate() 中的一个讨厌的小错误。我为你提交了bug report。
您建议的修复是否意味着最后一天最后一秒的日期时间超出范围？
Ty，这就是我尝试缓解问题的方法，清除表单中的范围，然后在运行时使用 EncodeDate 设置 Min/Max。
仅仅使用EncodeDate() 来分配MaxDate 并不能避免这个问题，因为您仍然需要在MaxDate 设置器中考虑对StrToDateTime() 的调用。我用一个例子更新了我的答案。

【解决方案2】：

我还收到“无法设置日历最小/最大范围”。在 TMonthCalendar 控件上设置最小或最大日期时：

myCalendar.MinDate:= myMinDate;

通过将新值转换为 TDateTime 解决了这个问题；

myCalendar.MinDate:= TDateTime(myMinDate);

【讨论】：