Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Error: "is not a valid floating point value" (https://www.clubdelphi.com/foros/showthread.php?t=93188)

benegas 11-06-2018 06:22:53

Error: "is not a valid floating point value"
 
Caros Colegas buenas noches,
estoy com um problema com delphi 7 ,
el programa ejecuta pero al calcular aparece un error,
"is not a valid floating point value"

alguna idea ?

ArtPortEsp 11-06-2018 07:06:50

Cita:

Empezado por benegas (Mensaje 526991)
Caros Colegas buenas noches,
estoy com um problema com delphi 7 ,
el programa ejecuta pero al calcular aparece un error,
"is not a valid floating point value"

alguna idea ?

No nos das muchos datos para ayudarte....

el error es por que estas tratando de hacer una operación con un dato que se espera como numérico (float) y no lo es... pero no hay mucho mas por decirte con tan pocos datos.

benegas 11-06-2018 07:18:23

Código Delphi [-]

procedure TForm1.Button7Click(Sender: TObject);
var
  a,b,c,tpro,des,cot,inc,tpom,t,tpgs:real;
begin
  des:=strtofloat (descuento.text);
  inc:=strtofloat(incremento.Text);
  a:=strtofloat(encomienda.text);
  b:=strtofloat(viatico.text);
  c:=strtofloat(gastoadm.text);
  tpro:=strtofloat(total.text);
  t:= a+b+c+tpro;

  if (descuento.Enabled=true) then
  
    tpgs:= t-des;

  if(incremento.enabled=true) then
   begin
    tpgs:= t+inc;
   end;
  
  tp.text:= floattostr(tpgs);  aca me indica el error
  cot:= strtofloat(cotiza.text);
  tpom:= tpgs/cot;
  tpotra.text:=floattostr(tpom);
  
end;

end.

ElKurgan 11-06-2018 10:00:15

Probando tu código no me da ningún error y se ejecuta bien.

Por tanto, pienso que el error no es la llamada a la función, sino los datos que metes en las cajas de texto.

Por ejemplo, según la configuración regional que tengas, le debes poner el valor con la coma o con el punto como separador decimal.

En mi caso, la coma decimal me ha servidor bien.

También puedes probar la versión extendida de FloatToStr, en la que le pasas el "FormatSettings", para que no tengas errores con el separador decimal...

Aquí puedes ver más información:

Un saludo

Casimiro Notevi 11-06-2018 10:40:51

benegas, bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)


Y recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Además, debes poner títulos descriptivos a tu pregunta, porque "Ayuda Urgente" no permite saber nada sobre lo que trata el hilo que has creado.
Te lo he cambiado por: Error: "is not a valid floating point value"
Saludos.

benegas 11-06-2018 13:41:48

aqui tienes el codigo completo. tambien pense en os separador decimal, pero no lo estoy usando. ybual da em mismo error

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    MaskEdit1: TMaskEdit;
    Label4: TLabel;
    Combo1: TComboBox;
    Label5: TLabel;
    cotiza: TEdit;
    Label6: TLabel;
    lista: TListBox;
    lista2: TListBox;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    encomienda: TEdit;
    viatico: TEdit;
    gastoadm: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label7: TLabel;
    total: TEdit;
    GroupBox2: TGroupBox;
    radio1: TRadioButton;
    Radio2: TRadioButton;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    descuento: TEdit;
    incremento: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    tp: TEdit;
    tpotra: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure Combo1Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure radio1Click(Sender: TObject);
    procedure Radio2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
valor: string;
i: integer;
begin
i:=1;
  while (i<=4) do
    begin
      valor:=inputbox('Productos','Ingrese Productos','Ingresar');
      lista.items.add(valor);
      i:= i+1;
      end;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if application.MessageBox('DESEA SALIR ?',
  'ATENCION !!!', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES THEN
  close;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
num: string;
var
  s, pre: real;
i:integer;
begin
i:= 1;
  while (i<=4) do
    begin
      num:=inputbox('Precio','Ingrese Precio','Ingresar');
      lista2.Items.Add(num);
      pre:= strtofloat(num);
      s:= s+pre;
      i:= i+1;
      end;
      total.text:= floattostr(s);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if lista.ItemIndex= -1 then
  begin
  showmessage('Seleccionar un Item');
  exit;
  end;
  lista.Items.Delete(lista.ItemIndex);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if lista2.ItemIndex= -1 then
  begin
  showmessage('Seleccionar un Item');
  exit;
  end;
  lista2.Items.Delete(lista2.ItemIndex);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  e:real;
begin
  if CheckBox1.checked = true then
    begin
      e:=30000;
      encomienda.Color:=clWhite;
      encomienda.text:=floattostr(e);

    end
  else if CheckBox1.checked = false then
    begin
      encomienda.Color:=clYellow;
      encomienda.text:=' ';
    end;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);
var
  v:real;
begin
  if CheckBox2.checked = true then
    begin
      v:=50000;
      viatico.Color:=clWhite;
      viatico.text:=floattostr(v);

    end
  else if CheckBox2.checked = false then
    begin
      viatico.Color:=clYellow;
      viatico.text:='';
    end;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);
var
  g:real;
begin
  if CheckBox3.checked = true then
    begin
      g:=10000;
      gastoadm.Color:=clWhite;
      gastoadm.text:=floattostr(g);
    end
  else if CheckBox3.checked = false then
    begin
      gastoadm.Color:=clYellow;
      gastoadm.text:='';
    end;
end;

procedure TForm1.Combo1Change(Sender: TObject);
var
  n:integer;
begin
  n:= combo1.ItemIndex;
  if (n = 0) then
    cotiza.Text:= '5500';
  if (n = 1) then
    cotiza.Text:= '1500';

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  combobox1.Text:= ' ';
  combobox2.Text:= ' ';
  maskedit1.Text:= ' ';
  combo1.Text:= ' ';
  cotiza.Text:= ' ';
  lista.clear;
  lista2.clear;
  CheckBox1.Checked := false;
  CheckBox2.Checked := false;
  CheckBox3.Checked := false;
  radio1.checked := true;
  radio2.checked := false;
  total.text:= ' ';
  descuento.Text:= ' ';
  incremento.text:= ' ';
  tp.Text:= ' ';
  tpotra.Text:= ' ';
  combobox1.SetFocus;
end;

procedure TForm1.radio1Click(Sender: TObject);
begin
  if (radio1.Checked=true) then
    begin
      descuento.Enabled:= true;
      descuento.Color:=clWhite;
      incremento.enabled:= false;
      incremento.Color:=clYellow;
      end;
end;

procedure TForm1.Radio2Click(Sender: TObject);
begin
  if (radio2.Checked=true) then
    begin
      descuento.Enabled:= false;
      descuento.Color:=clYellow;
      incremento.Enabled:= true;
      incremento.Color:=clWhite;
      end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
  a,b,c,tpro,des,cot,inc,tpom,t,tpgs:real;
begin
  des:=strtofloat (descuento.text);
  inc:=strtofloat(incremento.Text);
  a:=strtofloat(encomienda.text);
  b:=strtofloat(viatico.text);
  c:=strtofloat(gastoadm.text);
  tpro:=strtofloat(total.text);
  t:= a+b+c+tpro;

  if (descuento.Enabled=true) then
  
    tpgs:= t-des;

  if(incremento.enabled=true) then
   begin
    tpgs:= t+inc;
   end;
  
  tp.text:= floattostr(tpgs);
  cot:= strtofloat(cotiza.text);
  tpom:= tpgs/cot;
  tpotra.text:=floattostr(tpom);
  
end;

end.

Casimiro Notevi 11-06-2018 15:03:16

¿Y en qué línea sale el error?
¿Has seguido el código con el depurador?

Neftali [Germán.Estévez] 11-06-2018 16:30:44

La mayoría de las veces, este error suele dar cuando intentamos convertir un String a Float, sin tener en cuenta los separadores de miles y de decimales. O cuando estamos usando una diferente a la del sistema.

Deberías ver si el número que estás convirtiendo tiene alguno de estos separadores.

benegas 11-06-2018 17:33:28

Cita:

Empezado por Casimiro Notevi (Mensaje 527007)
¿Y en qué línea sale el error?
¿Has seguido el código con el depurador?

pues eso no se,
deputa todo bien, ejecuta el programa
pero cuando voy hacer los calculos, o sea ejecutar el
Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);

sale ese error

"is not a valid floating point value"
tienes algun email para mandar el proyec ???

benegas 11-06-2018 17:44:04

Cita:

Empezado por Neftali [Germán.Estévez] (Mensaje 527010)
La mayoría de las veces, este error suele dar cuando intentamos convertir un String a Float, sin tener en cuenta los separadores de miles y de decimales. O cuando estamos usando una diferente a la del sistema.

Deberías ver si el número que estás convirtiendo tiene alguno de estos separadores.

hola amigo, entiendo.
la cuestion es que no estoy usando separador decimales, mas abajo mi codigo completo, fijate que no estoy usando "formatfloat" ni tampoco "formatsettings"

Casimiro Notevi 11-06-2018 17:51:04

El programa se parará justo, exactamente en una línea, en una de las que indico, aunque tú no lo hayas dicho.
Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var
  a,b,c,tpro,des,cot,inc,tpom,t,tpgs:real;
begin
  des:=strtofloat (descuento.text);      //   <-- ¿ Qué valor tiene descuento.text ?
  inc:=strtofloat(incremento.Text);      //   <-- ¿ Qué valor tiene incremento.text ?
  a:=strtofloat(encomienda.text);      //   <-- ¿ Qué valor tiene encomienda.text ?
  b:=strtofloat(viatico.text);      //   <-- ¿ Qué valor tiene viatico.text ?
  c:=strtofloat(gastoadm.text);      //   <-- ¿ Qué valor tiene gastoadm.text ?
  tpro:=strtofloat(total.text);      //   <-- ¿ Qué valor tiene total.text ?
  t:= a+b+c+tpro;
  if (descuento.Enabled=true) then  
    tpgs:= t-des;
  if(incremento.enabled=true) then
   begin
    tpgs:= t+inc;
   end;  
  tp.text:= floattostr(tpgs);      //   <-- ¿ Qué valor tiene tpgs ?
  cot:= strtofloat(cotiza.text);      //   <-- ¿ Qué valor tiene cotiza.text ?
  tpom:= tpgs/cot;
  tpotra.text:=floattostr(tpom);      //   <-- ¿ Qué valor tiene tpom ?  
end;

duilioisola 11-06-2018 19:53:11

Verifica qué es lo que estás convirtiendo de texto a número.
Por ejemplo mostrando qué vas a convertir mediante ShowMessage.
Código Delphi [-]
  tp.text := FloatToStr(tpgs); 
  ShowMessage('Voy a convertir >' + cotiza.text + '< a Float');
  cot := StrToFloat(cotiza.text); // <--- Seguramente esta es la línea que falla.

Por otro lado, el mensaje de error completo y sin traducir te dice qué es lo que no puede convertir:

Cita:

'' is not a valid floating point value.
Nota las comillas delante de la frase, que se traduce como
'' no es un valor numérico válido.

Seguramente la cotiza.text es una cadena vacía.

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
begin
[...]
  // Esto debería inicializarse como '0' o '0.00'.
  // También habría que validar que solo entren números, "-" y ",".
  cotiza.Text := ' ';
  // También para otros Edits que luego se convertirán mediante StrToFloat
[...]

duilioisola 11-06-2018 20:06:24

Si decides mantener los Edits con cadenas vacías por cuestiones estéticas, te dejo una función que convierte String a Float. Si no puede devuelve un valor por defecto.

Código Delphi [-]
function StrToFloatDef(s: string; Default: double): double;
begin
  try
     // Quito el separador de miles
     s := Trim(StringReplace(s, ThousandSeparator, '', [rfReplaceAll]));
     if (s = '') then
        Result := Default
     else
        Result := StrToFloat(s);
  except
     Result := Default;
  end;
end;


// Ejemplo de uso
var
  Precio : double;
begin
  // Trata de converir el Edit a número.
  // Si falla el valor devuelto será 0.
  Precio := StrToFloatDef(EditPrecio.Text, 0);
end;

ecfisa 11-06-2018 23:23:38

Hola.

Además de lo dicho por los compañeros, también podrías validar el valor flotante al momento del ingreso, v. gr.:
Código Delphi [-]
...
implementation

const
  PTOS = '...';

type
  TConvertResult = (crOK, crCancel, crError);

function ChainToFloat(var Value: Double; const Title, Caption: string;
  const DecimalSeparator: Char = '.'): TConvertResult;
var
  str : string;
  FS  : TFormatSettings;
begin
  FS.DecimalSeparator := DecimalSeparator;
  str := InputBox(Title, Caption, PTOS);
  Result := crError;
  if str = PTOS then
    Result := crCancel
  else if TryStrToFloat(str, value, FS) then
    Result := crOk
  else
    ShowMessage('Error de conversión');
end;

// aplicado a tu código:
procedure TForm1.Button3Click(Sender: TObject);
var
  nro: Double;
  i  : Integer;
  r  : TConvertResult;
begin
  i := 1;
  repeat
    r := ChainToFloat(nro, 'Precio', 'Ingrese el precio:',',');
    if r = crOk then
    begin
      Lista.Items.Add(FloatToStr(nro));
      Inc(i);
    end;
  until (i = 4) or (r = crCancel)
end;
...

Y también agregar que, dependiendo con que Delphi estas trabajando, la función StrToFloatDef ya está incluída en la unidad SysUtils (al menos versión 7 y posteriores).

Saludos :)


La franja horaria es GMT +2. Ahora son las 00:52:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi