Problema con FloatToStr

[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 Noteví]

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 Noteví]

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