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