字符串函数大全

字符串函数大全(38)       Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
      ffFixed, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text,
0),
      ffNumber, SpinEdit1.Value, SpinEdit2.Value);
      Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text,
      0),
      ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
      end;
      ///////End FloatToStrF
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits:
      Integer): string; $[SysUtils.pas
      功能 返回货币类型以指定格式转换成字符串
      说明 Digits指定小数宽度
      参考 function SysUtils.FloatToText
      例子
      ///////Begin CurrToStrF
      procedure TForm1.Button1Click(Sender: TObject);
      begin
      Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
      ffGeneral, SpinEdit1.Value);
      Memo1.Lines.Values['ffEXPonent'] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
      ffEXPonent, SpinEdit1.Value);
      Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
      ffFixed, SpinEdit1.Value);