我将TDateTimePicker控件Format设置为:‘0000-00-00’,程序运行后,点击TDateTimePicker控件不能设置值。请高手指点原因:代码如下:
Str_Date:= '';
Str_Time:= '';
if Str_DateTime<>'' then
begin
if Copy(Str_DateTime,1,4)='FFFF' then
begin
dtp_Date.Format:= '0000-00-00';
dtp_Time.Format:= '00:00:00';
end else
begin
Str_Date:= HexStrToDateStr(Str_DateTime);
Str_Time:= HexStrToCaptureTimeStr(Copy(Str_DateTime,11,6));
dtp_Date.Date:= StrToDate(Str_Date);
dtp_Time.Time:= StrToTime(Str_Time);
end;
end;
假如Str_DateTime:='FFFF'
Str_Date:= '';
Str_Time:= '';
if Str_DateTime<>'' then
begin
if Copy(Str_DateTime,1,4)='FFFF' then
begin
dtp_Date.Format:= '0000-00-00';
dtp_Time.Format:= '00:00:00';
end else
begin
Str_Date:= HexStrToDateStr(Str_DateTime);
Str_Time:= HexStrToCaptureTimeStr(Copy(Str_DateTime,11,6));
dtp_Date.Date:= StrToDate(Str_Date);
dtp_Time.Time:= StrToTime(Str_Time);
end;
end;
假如Str_DateTime:='FFFF'
楼主,是这样吗?