Suma de dos Edit precio + IVA

[Luis.Lapuente]

Hola muchas gracias por dedicarme su preciado tiempo… revise cada uno de los punto que me dieron y aun me continua el error, pero también me percate que el error se me produce al momento que el edit subtotal está vacío. Por ejemplo si edit subtotal queda en blanco me sale el error o si edit iva (edit1) queda en blanco me sale el mismo error la cosa es que mientras busca por el edit código esos dos campo quedan en blanco… Me podrían decir que puedo hacer aquí. Por favor

[ecfisa]

Hola Luis.Lapuente.

Si alguno de los TEdit (Edit1 o subtotal) no tienen contenido, la función StrToFloat lanzará una excepción ya que la cadena vacía no es suceptible de ser convertida a número de punto flotante.

Tres opciones que evitan la situación:

A)

Código Delphi [-]
var
  A,B: Double;
begin
  try
    A:= StrToFloat(Edit1.Text);
  except
    Edit1.SetFocus;
    raise Exception.Create('Edit1 no tiene un número decimal válido');
  end;

  try
    A:= StrToFloat(subtotal.Text);
  except
    subtotal.SetFocus;
    raise Exception.Create('subtotal no tiene un número decimal válido');
  end;

B)

Código Delphi [-]
var
  A,B: Double;
begin
  if not TryStrToFloat(Edit1.Text, A) then
  begin
    Edit1.SetFocus;
    raise Exception.Create('Edit1 no tiene un número decimal válido');
  end;

  if not TryStrToFloat(subtotal.Text, B) then
  begin
    subtotal.SetFocus;
    raise Exception.Create('subtotal no tiene un número decimal válido');
  end;

C)

Código Delphi [-]
var
  A,B: Double;
begin
  A:= StrToFloatDef(Edit1.Text, 0);     // A = 0 si no se puede efectuar la conversión
  B:= StrToFloatDef(subtotal.Text, 0);  // B = 0 si no se puede efectuar la conversión

Saludos

[Luis.Lapuente]

Muchas gracias amigo te agradezco mucho..... Muy bueno el foro de verdad que si agradezco a todos ustedes por su tiempo y compartir sus conocimientos con personas como yo que estamos comenzando en este mundo