Error: "is not a valid floating point value"

[Casimiro Notevi]

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

[benegas]

Empezado por Casimiro Notevi

¿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 ???

[Casimiro Notevi]

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

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:

'' 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]]

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]

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