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.