[paldave]

Otra forma menos "formal" de hacerlo sería así:

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;