procedure TForm1.Button1Click(Sender: TObject);
var temps:Real;
ss :String;
begin
temps:=4.95478;
temps:=Trunc(temps+0.5);
ss:=FloatToStrF(temps,ffFixed,10,2);
showmessage(ss);
end;
var temps:Real;
ss :String;
begin
temps:=4.95478;
temps:=Trunc(temps+0.5);
ss:=FloatToStrF(temps,ffFixed,10,2);
showmessage(ss);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货