Redondeo de decimales

[Cheswar]

Hola, necesito que me ayuden para redondear decimales en delphi 7, soy principiante y estuve tratando de hacerlo con roundto pero no me funciono, incluso no me corrio el programa, si alguien sabe alguna forma facil, le voy a agradecer. En el redondeo necesito por ejemplo si me sale 5.1241562135, redondearlo a 5.124.

[[xEsk]]

Hola, en este hilo ya trataron el tema.

Saludos.

[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;

[[xEsk]]

Bueno, mi forma chapucera de toda la vida había sido:

Código Delphi [-]
function SetDecimals(Value:Real; Decimals:Byte): Real;
begin
  Result:=StrToFloat(Format('%.' + IntToStr(Decimals) + 'f', [Value]));
end;

Todos tenemos nuestra forma chapuza xD

Saludos.