转换成字符型应该可以用FloatToStr吧。
转换成字符串型的话,对其取位再放到串中可以吗?

解决方案 »

  1.   

    label1.caption := FloatToStr(a+b+c)
      

  2.   

    label1.caption := FloatToStr(a+b+c)
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      a:real;
      s:string;
    begin
      a:=-123.456;
      s:=floatToStr(a);
      showMessage(s);
    end;
      

  4.   

    Lable1.Caption:=FloattoStr(X);
    或者采用安全转换:
    var
     s:String;
     x:Double;
    begin
     if tryFloatToStr(x,S) then
       Label1.Caption:=S;
    end;
    安全转换只适用于D6以上版本