Delphi,保留小数位
1.RoundTo---需要在uses中加入Math
保留浮点数到小数点后特定位,四舍五入,当然也可以保留到整数如下:
label2.Caption := FloatToStr(RoundTo(k, -2)); //此句要用Math
label2.Caption := FloatToStr(RoundTo(k, 2)); //此句要用Math
假如
k : Double = 7777.777;
上面结果分别为:
7777.78
7800
2. Format
注意直接输出字符型,不需要FloatToStr();
Label1.Caption := Format('%.2f',[k]);
1.RoundTo---需要在uses中加入Math
保留浮点数到小数点后特定位,四舍五入,当然也可以保留到整数如下:
label2.Caption := FloatToStr(RoundTo(k, -2)); //此句要用Math
label2.Caption := FloatToStr(RoundTo(k, 2)); //此句要用Math
假如
k : Double = 7777.777;
上面结果分别为:
7777.78
7800
2. Format
注意直接输出字符型,不需要FloatToStr();
Label1.Caption := Format('%.2f',[k]);
k : Double = 7777.777;
结果为:
7777.78假如
k : Double = 7777;