FloatToDecimal

[marcoszorrilla]

Bueno, voy a discrepar un poco de lo dicho, creo que la inquietud es saber como probar la función FloatToDecimal, la ayuda yo creo que deja mucho que desear en este caso.

Entonces si hubieran puesto un simple ejemplo sobraría esta pregunta, pero no existe ningún ejemplo, por lo que hacer que no de error esta función no es tarea trivial.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
    Res: TFloatRec;
    X: Extended;
 begin
    X:= -987.654321;
    FloatToDecimal( Res, X, fvExtended, 9, 1);
      { Res.Exponent:= 3; Res.Negative:= True; Res.Digits:= 9877 }
      ShowMessage(IntToStr(Res.exponent));
      ShowMessage(Res.Digits);
 end;

Con este ejemplo creo que se podrá entender sin ningún problema.

Un Saludo.

[damian2000]

Muchas gracias MarcosZorrilla. Tu ejemplo ha sido claro y conciso, y me ha ayudado. Ya se como utilizar la dichosa funcioncita. Gracias otra vez por entenderme y ayudarme.

Un Cordial Saludo.

[[Lepe]]

Damian2000, siento no haberte entendido a la primera, sorry.

PD: Espero que la proxima vez pueda hacerlo mejor (creo que peor es imposible... pero recordemos que la estupidez humana es infinita )

Saludos

[damian2000]

Nu pasa na Lepe. No te preucupes y se agradece que contestaras. Salu2.