Decimales.

[Iron]

También me vale, me interesa que me digais todas estas cosas porque así voy aprendiendo, Gracias!!!

[Iron]

He estado haciendo pruebas con RoundTo y hago algo mal:
El número es 123,456789
-si le pongo g:=RoundTo(f,-3):sale=123,45700073
-si le pongo -2):sale=123,45999964
-si le pongo -1):sale=123,5
-si le pongo 0):sale=123

También me pasa con una función mia:

Código Delphi [-]
procedure TInt_CC.ListBox9Click(Sender: TObject);
   var
    convertir:smallint;
   begin
    convertir:=Listbox9.ItemIndex + 1;
    Tipo_Inst_P_S:=Tipo_Inst(convertir);
end;
 
function Tipo_Inst(convertir:integer):single;
   begin
    if convertir=1 then Tipo_Inst:=1.732;
    if convertir=2 then Tipo_Inst:=2;
    if convertir=3 then Tipo_Inst:=1.732;
    if convertir=4 then Tipo_Inst:=1.732;
end;

Con esta función me devuelve 1,7319999933 en lugar de 1,732.

Gracias

[rgstuamigo]

He estado haciendo pruebas con RoundTo y hago algo mal:
El número es 123,456789
-si le pongo g:=RoundTo(f,-3):sale=123,45700073
-si le pongo -2):sale=123,45999964
-si le pongo -1):sale=123,5
-si le pongo 0):sale=123

Pues yo lo he probado tambien y me sale todo bien por ejemplo:
RoundTo(123,456789,-3)=123,457 ok
RoundTo(123,456789,-2)=123,46 ok
RoundTo(123,456789,-1)=123,5 ok
RoundTo(123,456789,0)=123 ok
Probado en Delphi 7.
Me late que quisas estas haciendo algo mal.
Por que no pones tu codigo para que lo podamos ver.

[Iron]

Mi código es este (también en Delphi 7):

Código 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.

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

[Iron]

Correcto, eso era el fallo!!!, yo cuando me puse a definir las variables vi primero el rango de las mismas:
Single 1.5 x 10^-45 .. 3.4 x 10^38 7-8 4
Double 5.0 x 10^-324 .. 1.7 x 10^308 15-16 8

Pensaba que con single me valía!!!

Gracias