"ist kein Gültiger Gleitkommawert delphi

Ihr problem mit der qConsulta2.fieldbyname('valor').asfloat
Von meinen Tests Ihre Fehler wird auftreten, wenn die VALOR Spalte ist text oder varchar in der Datenbank-Tabelle, und es enthält einen Null-oder null-Länge-Zeichenfolge.

Mein test bestehen, erstellen einer Tabelle mit VALOR_TEXT und VALOR_FLOAT Spalten in einer MSAccess-Datenbank. VALOR_TEXT ist als text definiert und VALOR_FLOAT definiert ist, eine doppelter. Ich schrieb code für 4 Testfälle, 2 illustrieren den Fehler (Case1 und Case2) und 2, Lösungen (Fall 3 und Case4). Der code ist unten zu finden.

procedure TForm1.Case1;
var
  f : double;
begin
  db.ExecSQL('delete from PARAMETRO');
  db.ExecSQL('insert into PARAMETRO (codigoPARAMETRO) values(''IVT'')');
// VALOR_FLOAT and VALOR_TEXT are null
  qConsulta2.SQL.Text := 'select * from PARAMETRO';
  qConsulta2.Open();
  f := qConsulta2.FieldByName('VALOR_FLOAT').AsFloat;
  ShowMessage('From Float '+FloatToStr(f));
  f := qConsulta2.FieldByName('VALOR_TEXT').AsFloat;
  ShowMessage('From Text '+FloatToStr(f));
end;

procedure TForm1.Case2;
var
  f : double;
begin
  db.ExecSQL('delete from PARAMETRO');
  db.ExecSQL('insert into PARAMETRO (codigoPARAMETRO,VALOR_TEXT) values(''IVT'','''')');
// VALOR_FLOAT is null and VALOR_TEXT is '' (zero length string)
  qConsulta2.SQL.Text := 'select * from PARAMETRO';
  qConsulta2.Open();
  f := qConsulta2.FieldByName('VALOR_FLOAT').AsFloat;
  ShowMessage('From Float '+FloatToStr(f));
  f := qConsulta2.FieldByName('VALOR_TEXT').AsFloat;
  ShowMessage('From Text '+FloatToStr(f));
end;

Case3 ist direkt anwendbar für die Befestigung Ihres Codes. Durch abrufen der Daten AsVariant, NullStrictConvert := false wird die Null-Werte zulassen, um umgewandelt werden zu float -, integer-oder string-mit eine Ausnahme.

procedure TForm1.Case3;
var
  f : double;
begin
  NullStrictConvert := false;
  db.ExecSQL('delete from PARAMETRO');
  db.ExecSQL('insert into PARAMETRO (codigoPARAMETRO) values(''IVT'')');
// VALOR_FLOAT and VALOR_TEXT are null
  qConsulta2.SQL.Text := 'select * from PARAMETRO';
  qConsulta2.Open();
  f := qConsulta2.FieldByName('VALOR_FLOAT').AsFloat;
  ShowMessage('From Float '+FloatToStr(f));
  f := qConsulta2.FieldByName('VALOR_TEXT').AsVariant;
  ShowMessage('From Text '+FloatToStr(f));
end;

Case4 stellt eine Methode zur Vermeidung von Daten-Konvertierung, solange die Quell-und die Ziel-Spalten vom gleichen Typ. Wenn Sie nicht die gleiche Art, Daten-Konvertierungs-Fehler können noch auftreten.

procedure TForm1.Case4;
var
  f : double;
begin
  NullStrictConvert := false;
  db.ExecSQL('delete from PARAMETRO');
  db.ExecSQL('insert into PARAMETRO (codigoPARAMETRO) values(''IVT'')');
// VALOR_FLOAT and VALOR_TEXT are null
  qConsulta2.SQL.Text := 'select * from PARAMETRO';
  qConsulta2.Open();
  f := qConsulta2['VALOR_FLOAT'];
  ShowMessage('From Float '+FloatToStr(f));
  f := qConsulta2['VALOR_TEXT'];
  ShowMessage('From Text '+FloatToStr(f));
  // avoid data conversion
  qCompraDetalle.Open();
  qCompraDetalle.Append;
  qCompraDetalle['PORCENTAJE_IVA'] := qConsulta2['VALOR_TEXT'];
  qCompraDetalle.Post;
end;

Müssen Sie prüfen, ob Ihre Abfrage tatsächlich zurückgegebenen Datensätze:

qConsulta2 := TQuery.Create(Application);
try
  qConsulta2.DatabaseName := 'BaseDato';
  qConsulta2.SQL.Text := 'select VALOR from PARAMETRO where codigoPARAMETRO  = ''IVA'' ';
  qConsulta2.open;
  if not qConsulta2.EOF then  
   qCompraDetalle.FieldByName('PORCENTAJE_IVA').AsFloat:= qConsulta2.fieldbyname('valor').asfloat;
  qConsulta2.close;
finally 
  qConsulta2.free 
end;

oder wenn Sie wollen,, um sicherzustellen, es ist immer ein Datensatz zurückgegeben, verwenden Sie die SQL COALESCE Befehl:

qConsulta2 := TQuery.Create(Application);
try
  qConsulta2.DatabaseName := 'BaseDato';
  qConsulta2.SQL.Text := 'select COALESCE(VALOR, 0) AS valor from PARAMETRO where codigoPARAMETRO  = ''IVA'' ';
  qConsulta2.open;
  qCompraDetalle.FieldByName('PORCENTAJE_IVA').AsFloat:= qConsulta2.fieldbyname('valor').asfloat;
  qConsulta2.close;
finally 
  qConsulta2.free 
end;

UPDATE

Wilde Vermutung hier, da Sie nicht geben Sie Ihre Datenbank details: wenn Ihr VALOR Feld in der PARAMETRO Tabelle ist eigentlich ein Varchar-Datentyp, dann könnte man eine leere Zeichenfolge anstelle der NULL :

qConsulta2 := TQuery.Create(Application);
try
  qConsulta2.DatabaseName := 'BaseDato';
  qConsulta2.SQL.Text := 'select VALOR from PARAMETRO where codigoPARAMETRO  = ''IVA'' ';
  qConsulta2.open;
  if qConsulta2.FieldByName('VALOR').AsString <> '' then  
   qCompraDetalle.FieldByName('PORCENTAJE_IVA').AsFloat:= qConsulta2.fieldbyname('valor').asfloat;
  qConsulta2.close;
finally 
  qConsulta2.free 
end;