Cita:
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 ...
salu2!!!!!!!