ME MARCA EL SIGUIENTE ERROR:
Project sistema.exe raised exception Class EConverter error with message "" is not a valid floating point value.
Mi codigo es:
Código Delphi
[-]
procedure TForm18.BitBtn1Click(Sender: TObject);
function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;
var
npages:integer;
n:string;
begin
IF DE.Date > A.Date THEN BEGIN
Application.MessageBox('ERROR EN LAS FECHAS','SISTEMA MULTAS',MB_ICONERROR);
END
ELSE BEGIN
Form17:= TForm17.Create(Application);
datamodule4.buscar.close;
datamodule4.buscar.SQL.Clear;
datamodule4.buscar.SQL.Add('SELECT multas.folio,agentes.clave_agente, agentes.nombre, agentes.rfc, multas.importe_agente, sum(multas.importe_agente) AS total_agente,'
+'sum(multas.importe_agente) * 2 AS total_cien FROM agentes,multas,'
+'detalle_multa_age WHERE multas.fecha_pago >= "'+QuotedStr(FormatDateTime('yyyy-mm-dd',de.date))+'" AND multas.fecha_pago <= "'+QuotedStr(FormatDateTime('yyyy-mm-dd',a.date))+'"'
+' AND detalle_multa_age.nombre = agentes.nombre and detalle_multa_age.folio = multas.folio group by clave_agente');
datamodule4.buscar.Open;
form17.qrlabel4.Caption:=FormatDateTime('d mmm yyyy',DE.DATE);
form17.qrlabel5.Caption:=FormatDateTime('d mmm yyyy',A.DATE);
form17.QuickRep1.DataSet:=datamodule4.buscar;
form17.QRDBText1.DataSet:=datamodule4.buscar;
form17.QRDBText2.DataSet:=datamodule4.buscar;
form17.QRDBText3.DataSet:=datamodule4.buscar;
form17.QRDBText4.DataSet:=datamodule4.buscar;
form17.QRDBText5.DataSet:=datamodule4.buscar;
form17.QRDBText1.DataField:='clave_agente';
form17.QRDBText2.DataField:='nombre';
form17.QRDBText3.DataField:='rfc';
form17.QRDBText4.DataField:='total_agente';
form17.QRDBText5.DataField:='total_cien';
form17.QRExpr2.Expression:='SUM(total_cien)';
form17.QRExpr3.Expression:='SUM(total_agente)';
N:= Deletrear(StrToFloat(form17.QRExpr2.Value.strResult));
form17.QRLabel22.Caption:=N;
form17.QuickRep1.Prepare;
nPages:=form17.QuickRep1.QRPrinter.PageCount;
form17.QRLabel6.Caption:=FormatDateTime('d mmmm yyyy',DATE);
form17.QRLabel20.Caption:=inttostr(npages);
form17.QuickRep1.PreviewModal;
form17.Close;
END;
end;