Delphi 函数参考[16]

      功能 返回浮点数以指定格式转换成指针字符串的内存大小
      说明 precision指定精度;digits指定小数宽度
      参考 <null>
      例子
      ///////begin floattotext
      procedure tform1.button1click(sender: tobject);
      var
      vbuffer: array[0..255] of char;
      e: extended;
      begin
      e := strtofloatdef(edit1.text, 0);
      spinedit3.value := floattotext(vbuffer, e,
      fvextended, ffnumber, spinedit1.value, spinedit2.value);
      edit2.text := copy(vbuffer, 1, spinedit3.value);
      end;
      ///////end floattotext(
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function formatfloat(const format: string; value: extended): string;
      $[sysutils.pas
      功能 返回浮点数类型以指定格式字符串format转换成字符串
      说明 formatfloat(',.00', 1234567890) = '1,234,567,890.00'
      参考 function sysutils.floattotextfmt
      例子 edit1.text := formatfloat(edit2.text, strtofloatdef(edit3.text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function formatcurr(const format: string; value: currency): string;
      $[sysutils.pas
      功能 返回货币类型以指定格式字符串format转换成字符串
      说明 formatcurr(',.00', 1234567890) = '1,234,567,890.00'
      参考 function sysutils.floattotextfmt
      例子 edit1.text := formatcurr(edit2.text, strtocurrdef(edit3.text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function floattotextfmt(buf: pchar; const value; valuetype:
      tfloatvalue; format: pchar): integer; $[sysutils.pas
      功能 返回浮点数以指定格式字符串format转换成指针字符串的内存大小
      说明 valuetype指定无类型参数value的类型
      参考 <null>
      例子
      ///////begin floattotextfmt
      procedure tform1.button1click(sender: tobject);
      var
      vbuffer: array[0..255] of char;
      e: extended;
      begin
      e := strtofloatdef(edit1.text, 0);
      spinedit1.value := floattotextfmt(vbuffer, e,
      fvextended, pchar(edit2.text));
      edit3.text := copy(vbuffer, 1, spinedit1.value);
      end;
      ///////end floattotextfmt
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtofloat(const s: string): extended; $[sysutils.pas
      功能 返回字符串s转换成浮点数
      说明 字符串非浮点数表达时将引起异常
      参考 function sysutils.texttofloat
      例子 var e: extended; begin e := strtofloat(edit1.text); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function strtofloatdef(const s: string; const default: extended):
      extended; $[sysutils.pas
      功能 返回字符串s转换成浮点数
      说明 字符串非浮点数表达时则返回默认值default
      参考 function sysutils.texttofloat
      例子 var e: extended; begin e := strtofloatdef(edit1.text, 0); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function trystrtofloat(const s: string; out value: extended): boolean;
      overload; $[sysutils.pas
      首部 function trystrtofloat(const s: string; out value: single): boolean;
      overload; $[sysutils.pas
      首部 function trystrtofloat(const s: string; out value: double): boolean;
      overload; $[sysutils.pas
      功能 返回字符串s转换成浮点数value是否成功
      说明 字符串非浮点数表达时返回false并且value将输出为不确定的值
      参考 function sysutils.texttofloat
      例子