如何让一个实数只显示以为小数??急等

解决方案 »

  1.   

    Edit1.Text:=FormatFloat('0.0',12.3456);
      

  2.   

    FloatToStrF(A, ffNumber, 3, 2);
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    beginedit1.Text:='124.5678';edit2.Text:=FloatToStrF(strtofloat(edit1.Text),ffNumber,4,1);
    //floattostrf函数第二个参数可以为:ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency
    //数字5代表总位数
    //数字2代表小数位数edit3.Text:=format('%.1f',[strtofloat(edit1.Text)]);//两个函数都是四舍五入后显示以1位小数