Delphi 函数参考[18]

      说明 字符非日期表达时将引起异常
      参考 function sysutils.trystrtodate
      例子 datetimepicker1.date := strtodate(edit1.text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtodatedef(const s: string; const default: tdatetime):
      tdatetime; $[sysutils.pas
      功能 返回字符串s转换成日期
      说明 字符非日期表达时则返回默认值default
      参考 function sysutils.trystrtodate
      例子 datetimepicker1.date := strtodatedef(edit1.text, date);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trystrtodate(const s: string; out value: tdatetime): boolean;
      $[sysutils.pas
      功能 返回字符串s转换成日期value是否成功
      说明 字符非日期表达时返回false并且value将输出为0
      参考 <null>
      例子
      ///////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
      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