3.1415转换成"3.14"用什么函数可以实现？

Question

太EASY了，round(3.1415.2)四舍五入的问题

Answer 1

自己写了一个，试试吧Function FRound(FS : Double;WS : Integer) : Double;
var
    vd : Double;
Begin
    vd := FS;
    vd := vd * IntPower(10, WS);
    vd := round(vd);
    vd := vd / IntPower(10, WS);
    Result := vd;
End;FS 被舍原值 WS : 位数

Answer 2

Round 命令只能用在Sql语句中,在Delphi中不能用此命令
编写一个函数:
Function LikeRound(SourceNum:Double;Num:integer):Double;
var
   I,Temp:integer;
begin
   Temp:=1;
   For I:=1 to Num do
   begin
     Temp:=Temp*10;
   end;
   Result:=Int(SourceNum*Temp)/Temp;
end;