Problema con FloatToStr

[Kubelo]

Hola, en primer lugar agradecer la molestia de leer mi problema y ayudarme.

Vamos a ver, tengo una función tal que así:

Código Delphi [-]
procedure TNuevoEdit.SetFloat(ValorFloat: Double);
begin
 if Tipo = TipoFloat then Text := FloatToStr(ValorFloat);
end;

Bien el problema que me he encontrado es que al pasar un valor tipo (ValorFloat = 1e-05) me pasa a partir de 5 decimales, ya que sino el valor llega como 0,0001. Pues bien en los casos que coge exponenciales al final el text se me pasa como un valor negativo.

Por ejemplo:

(0,00001) -> 1e-05 -> Text = -15
(0,00002) -> 2e-05 -> Text = -25

Es muy curioso pero me esta resultando un quebradero de cabeza. Así que espero ideas para que al final me quede como tiene que quedar, es decir:

1e-05 -> Text = 0,00001
2e-05 -> Text = 0,00002

Gracias de nuevo

[ecfisa]

Hola Kubelo.

Fijate si te sirve de este modo:

Código Delphi [-]
procedure TNuevoEdit.SetFloat(Value: Double);
begin
  Text:= FormatFloat('0.##########', Value);
end;

Saludos.

[Kubelo]

Pero eso siempre me devolverá decimales, y no tiene q ser así, debe devolver el valor correcto con o sin decimales.

Además el número de decimales puede variar dependiendo de donde se use el Edit que estoy desarrollando.

Gracias

[TiammatMX]

¿Y si utilizas Trunc(), no te sirve lo mismo? Digo, si lo que deseas es eliminar los decimales, es tu mejor opción...

[Kubelo]

No quiero eliminar los decimales, el problema es q cuando llega un 1e-05 en lugar de pintar 0,00005 que sería lo correcto, me pinta -15. Jejejee

[ecfisa]

Empezado por Kubelo

No quiero eliminar los decimales, el problema es q cuando llega un 1e-05 en lugar de pintar 0,00005 que sería lo correcto, me pinta -15. Jejejee

Tál como está tu código, lo correcto es que muestre 1E-5. Lo que no entiendo a que puede deberse que te muestre -15...

Realicé una prueba sencilla que te adjunto por si te sirve:

Código Delphi [-]
...
implementation  {$R *.dfm}

type
  TNuevoEdit = class(TEdit)
  private
    FFloat: Double;
    procedure SetFloat(Value: Double);
  public
    property Float: Double read FFloat write SetFloat;
  end;


procedure TNuevoEdit.SetFloat(Value: Double);
begin
  Text:= FloatToStr(Value);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TNuevoEdit.Create(Self) do
  begin
    Parent:= Self;
    Float := 0.00001;
  end;
end;

y el resultado es 1E-5, tál como se esperaría de la conversión efectuada:



Pero hay algo que todavía no me termina de quedar claro y es: ¿ Que formato de salida (exáctamente) deseas en la propiedad Text de TNuevoEdit ?

Un saludo.

[Kubelo]

El tema es que necesito que devuelva 0,00001. Ahí radica el problema. Si, se que es raro, pero por eso os pido ayuda a los gurús

[Casimiro Notevi]

Ahora sí que no lo entiendo

[ecfisa]

Empezado por Kubelo

El tema es que necesito que devuelva 0,00001. Ahí radica el problema. Si, se que es raro, pero por eso os pido ayuda a los gurús

Probá con esta máscara:

Código Delphi [-]
  Text:= FormatFloat('0.##.########', Value);

Por ejemplo:

Value =   0.00001 , resultado: 0,00001
Value = 123       , resultado: 123
Value = 567.88    , resultado: 567,88
...

Es un problema de máscaras, busca en la ayuda de Delphi por 'FormatFloat'

Saludos.

[Kubelo]

Ya salí del trabajo, el lunes lo pruebo, pero si le llega 1e-05 también funciona? Jejeje Ahí me queda la duda durante el fin de semana...

Jejeje

Gracias por vuestro tiempo, sois geniales!

[Kubelo]

Buenas de nuevo, la opción

Código Delphi [-]
FormatFloat('0.##.########', VFloat);

tal y como esperaba no me sirve, ya que a parte de seguir poniendo el valor en negativo, ahora me añade los decimales, y no es lo que busco.

Espero alguna idea más a ver si consigo desenredarme! Jeje

Gracias de nuevo

[Casimiro Notevi]

En lugar de un double, ¿puedes usar un currency?

[Kubelo]

Hola Casimiro, no, ha de ser un float, ya que a ese campo le puede llegar cualquier cosa.

Es uno de los inconvenientes.

Gracias

[amadis]

Prueba con el comando FloatToStrF

Es un comando practico que permite sobrecarga y te pasa el resultado a donde quieras, variable o al edit.

Aqui dejo una ayuda.

The FloatToStrF function converts a floating point number Value into a displayable string, with great control over the formatting via the Format, Precision, and Digits values.

The Value type may be any of the floating point types.

The Format parameter is defined by the TFloatFormat (SysUtils) type :
ffCurrency eg : ?2,345.60
ffExponent eg : 2.3456E+04
ffFixed eg : 2345.60
ffGeneral eg : 2345.6
ffNumber eg : 2,345.6

[ecfisa]

Hola Kubelo.

Sigo sin entender como es posible (dado el código que presentaste) que enviándo como argumento a SetFloat el valor 0.00001 obtengas el resultado -15.
Eso me hace preguntar si no tendrás algún problema con Delphi...


Saludos.

[Kubelo]

Empezado por ecfisa

Hola Kubelo.

Sigo sin entender como es posible (dado el código que presentaste) que enviándo como argumento a SetFloat el valor 0.00001 obtengas el resultado -15.
Eso me hace preguntar si no tendrás algún problema con Delphi...


Saludos.

Creo que nos hemos malentendido ecfisa, a la función no le llega 0,000001, sino 1e-05, pero realmente lo original si es 0,000001. No se si ahora me he expresado con claridad.

Mañana sin falta pruebo el FloatToStrF, me dejaste intrigado amadis.

Gracias a todos!

[ecfisa]

Empezado por Kubelo

Creo que nos hemos malentendido ecfisa, a la función no le llega 0,000001, sino 1e-05, pero realmente lo original si es 0,000001. No se si ahora me he expresado con claridad.

Mañana sin falta pruebo el FloatToStrF, me dejaste intrigado amadis.

Gracias a todos!

En realidad si el envías 0.00001, 1E-05, 1/100000 o 10 ^(-5) es indiferente ya que estamos hablando del mismo número representado en formatos diferentes. Lo que no entiendo es como obtenes los resultados -15 y -25.

Utilizando el número 1E-05 o 0.00001, tanto con FloatToStrF como con FormatFloat obtenés el resultado esperado: 0,00001

Código Delphi [-]
...
var
  x: Double;
begin
  x:= 1E-05; // del mismo modo funciona con: 12325,12345/-12345,12345, 56789.00003/-56789.00003, etc
  ShowMessage(FloatToStrF(x, ffFixed,10, 5)     // 0,00001
              +#10#13+
              FormatFloat('0.##.########', x)); // 0,00001

Sigo sin entender el problema... ¿ Podés ponernos algunos valores que enviados a SetFloat te provocan resultados indeseados ?

Saludos.

[Kubelo]

Bueno pues tal y como me temía el FloatToStrF, tampoco funciona.

ecfisa, los valores que me fallan son siempre 0,0000... a partir de 5 decimales que es cuando lo pasa a exponencial, y siempre "0,", es decir el valor 1,00001 lo coge bien, pero el 0,00001 ya no lo coge bien.

Gracias

[Casimiro Notevi]

Y de dónde salen esos números, ¿una función, un reloj, al azar, algún usuario que los escribe?

[Kubelo]

Empezado por Casimiro Notevi

Y de dónde salen esos números, ¿una función, un reloj, al azar, algún usuario que los escribe?

Introducidos por el usuario.