字符串函数大全

字符串函数大全(37)       首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas
      功能 返回货币数Value转换成字符串
      说明 货币数只保留四位小数
      参考 function SysUtils.FloatToText
      例子 Edit1.Text := CurrToStr(Now);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas
      功能 返回浮点数Value转换成货币数
      说明 如果浮点数Value超出范围则将触发异常
      参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
      例子 Edit1.Text := CurrToStr(FloatToCurr(Now));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision,
      Digits: Integer): string; $[SysUtils.pas
      功能 返回浮点数以指定格式转换成字符串
      说明 Precision指定精度;Digits指定小数宽度
      参考 function SysUtils.FloatToText
      例子
      ///////Begin FloatToStrF
      procedure TForm1.Button1Click(Sender: TObject);
      begin
      Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text,
      0),
      ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values['ffEXPonent'] := FloatToStrF(StrToFloatDef(Edit1.Text,
      0),
      ffEXPonent, SpinEdit1.Value, SpinEdit2.Value);