如何将带小数的single,real类型转换为字符串????eg:a:single;
b:string;a:=1238.23;b:=怎么把a转换呀??????

解决方案 »

  1.   

    b:= floattostr(a);
    就这样用
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      a:single;
      b :string;
    begin
      a:=123456.78;
      b:=format('%.2f',[a]);
      showmessage(b);
    end;
    结贴吧,呵呵~~
      

  3.   

    b := FloatToStr(a)建议楼主把分都给我吧,楼下的同志不用回答了....!~~~:)
      

  4.   

    晕,这么多人抢啊,我也来一个 FloatToStr(a)
      

  5.   

    难道我就不抢点分吗?
    b:=FloatToStr(a);
      

  6.   

    b:=FloatToStr(a);
    搭上末班车了,给点分吧
      

  7.   

    呵呵,
    procedure TForm1.Button1Click(Sender: TObject);
    var
      a:single;
      b :string;
    begin
      a:=123456.78;
      b:=format('%.2f',[a]);
      showmessage(b);
    end;
    //////////////////////////
    b:=FloatToStr(a);
    总结之