Delphi 函数参考[17]

      ///////begin trystrtofloat
      procedure tform1.button1click(sender: tobject);
      var
      e: extended;
      begin
      checkbox1.checked := trystrtofloat(edit1.text, e);
      edit2.text := formatfloat('', e);
      end;
      ///////end trystrtofloat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtocurr(const s: string): currency; $[sysutils.pas
      功能 返回字符串s转换成货币数
      说明 字符串非货币数表达时将引起异常
      参考 function sysutils.texttofloat
      例子 var c: currency; begin c := strtocurr(edit1.text); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtocurrdef(const s: string; const default: currency):
      currency; $[sysutils.pas
      功能 返回字符串s转换成货币数
      说明 字符串非货币数表达时则返回默认值default
      参考 function sysutils.texttofloat
      例子 var c: currency; begin c := strtocurrdef(edit1.text, 0); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trystrtocurr(const s: string; out value: currency): boolean;
      $[sysutils.pas
      功能 返回字符串s转换成货币数value是否成功
      说明 字符串非货币数表达时返回false并且value将输出为不确定的值
      参考 function sysutils.texttofloat
      例子
      ///////begin trystrtocurr
      procedure tform1.button1click(sender: tobject);
      var
      c: currency;
      begin
      checkbox1.checked := trystrtocurr(edit1.text, c);
      edit2.text := formatcurr('', c);
      end;
      ///////end trystrtocurr
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function texttofloat(buffer: pchar; var value; valuetype: tfloatvalue):
      boolean; $[sysutils.pas
      功能 返回将指针字符串buffer转换成无类型变量value
      说明 valuetype指定无类型参数value的类型
      参考 <null>
      例子
      ///////begin texttofloat
      procedure tform1.button1click(sender: tobject);
      var
      e: extended;
      begin
      checkbox1.checked := texttofloat(pchar(edit1.text), e,
      fvextended);
      edit2.text := formatfloat('', e);
      end;
      ///////end texttofloat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function datetostr(const datetime: tdatetime): string; $[sysutils.pas
      功能 返回日期datetime转换成字符串
      说明 转换格式由系统变量shortdateformat控制
      参考 function sysutils.datetimetostring;var sysutils.shortdateformat
      例子 edit1.text := datetostr(date);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function timetostr(const datetime: tdatetime): string; $[sysutils.pas
      功能 返回时间datetime转换成字符串
      说明 转换格式由系统变量longtimeformat控制
      参考 function sysutils.datetimetostring;var sysutils.longtimeformat
      例子 edit1.text := timetostr(date);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function datetimetostr(const datetime: tdatetime): string;
      $[sysutils.pas
      功能 返回日期时间datetime转换成字符串
      说明 转换格式由系统变量shortdateformat和longtimeformat控制
      参考 function sysutils.datetimetostring
      例子 edit1.text := datetimetostr(now);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtodate(const s: string): tdatetime; $[sysutils.pas
      功能 返回字符串s转换成日期