Question

我的应用程序的一些用户有一个奇怪的问题，在启动时他们得到一个例外的datitimepickers，其预定的最小/最大日期设置为1950年1月1日 - 2050年12月31日。

应用程序抛出的默认错误消息是

＆＃34;读取time1.Max时出错：无法设置日历最小/最大范围。＆＃34;

嵌入调试器（madshi＆＃39; madExcept）后我在报告中看到：

＆＃34;阅读时间错误1.MaxDate：＆＃39; 23：59：59＆＃39;不是有效的日期和。时间＆＃34;

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

            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

Answer 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));

我已在质量控制中提交了错误报告：

#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;
```

Answer 2

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

myCalendar.MinDate:= myMinDate;

通过将新值转换为TDateTime来解决此问题;

myCalendar.MinDate:= TDateTime(myMinDate);

Delphi TDateTimePicker问题，“未能设置最小/最大范围”

2 个答案: