Complementando a resposta anterior do EwertonGerencial e para quem utiliza o firebird com o quickreport alterar o bloco anterior adicionando as mesmas linhas:
Delphi: Delphi 10.3 Version 26.0.36039.7899
Firebird: 2.5.9
Quickreport: Version 6.00 Win64, Build 4.25 (16/11/20218)
// numeric fields
else if (FField is TBCDField) or
(FField is TExtendedField) or // adicionado manualmente
(FField is TSingleField) or // adicionado manualmente
(FField is TFMTBCDField) then
begin
result.Kind := resDouble;
result.dblResult := TNumericField(FField).AsFloat;
end
Complementando a resposta anterior do EwertonGerencial e para quem utiliza o firebird com o quickreport alterar o bloco anterior adicionando as mesmas linhas: Delphi: Delphi 10.3 Version 26.0.36039.7899 Firebird: 2.5.9 Quickreport: Version 6.00 Win64, Build 4.25 (16/11/20218) // numeric fields else if (FField is TBCDField) or (FField is TExtendedField) or // adicionado manualmente (FField is TSingleField) or // adicionado manualmente (FField is TFMTBCDField) then begin result.Kind := resDouble; result.dblResult := TNumericField(FField).AsFloat; end