real如何转为string???(急啊!)

解决方案 »

  1.   

    function FloatToStr(Value: Extended): string;
    FloatToStr(4.35);
      

  2.   

    首部 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);
    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
      

  3.   

    FloatToStr
    FloatToStrF()
    都行,可看在线帮助