字符串函数大全(46) vDateTime: TDateTime; begin CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); DateTimePicker1.Time := vDateTime; end; ///////End TryStrToTime ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas 功能 返回字符串S转换成日期时间 说明 字符非日期时间表达时将引起异常 参考 function SysUtils.TryStrToDateTime 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 功能 返回字符串S转换成日期时间 说明 字符非日期时间表达时则返回默认值Default 参考 function SysUtils.TryStrToDateTime 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); ━━━━━━━━━━━━━━━━━━━━━ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 功能 返回字符串S转换成日期时间Value是否成功 说明 字符非日期时间表达时返回False并且Value将输出为0 参考 <NULL> 例子 ///////Begin TryStrToDateTime procedure TForm1.Button1Click(Sender: TObject); var vDateTime: TDateTime; begin