Decimales.

[jandok238]

Empezado por Iron

Mi código es este (también en Delphi 7)
[delphi] procedure TForm1.Button1Click(Sender: TObject);
var
f:single;
g:single;
begin
f:=123.456789;
g:=RoundTo(f,-2);
showmessage (floattostr(g));
end;


Estoy convencido que es fallo mio, pero no se donde.
Un saludo y gracias.

El detalle esta en el tipo de las variables...
declara las variables de tipo doble ...

Código Delphi [-]
  var        f,g : double;

salu2!!!!!!!