Código Delphi [-]function SetPrecision(Value:Real;Digits:Byte):Real; var s:String; begin s:='.'+StringOfChar('0',Digits); s:=FormatFloat(s,Value); Result:=StrToFloat(s); end;
function SetPrecision(Value:Real;Digits:Byte):Real; var s:String; begin s:='.'+StringOfChar('0',Digits); s:=FormatFloat(s,Value); Result:=StrToFloat(s); end;