Fastreport - falscher Wert ?

[user0815]

Habe ich hier was übersehen, falsch gemacht, oder rechnet FR falsch ?

Ich bilde einen Query

Delphi-Quellcode:

    SQL.Add(' FUELLINGDATA.QUANTITY,');
    SQL.Add(' PREIS.PREIS,');
    SQL.Add(' FUELLINGDATA.QUANTITY * PREIS.PREIS AS BETRAG');

Nach dem Öffnen formatiere ich die Werte für die Anzeige

Delphi-Quellcode:

procedure TDatenmodul.Query1AfterOpen(DataSet: TDataSet);
begin
  (DataSet.FieldByName('PREIS') as TFloatField).DisplayFormat := '0.000';
  (DataSet.FieldByName('QUANTITY') as TFloatField).DisplayFormat := '0.00';
  (DataSet.FieldByName('BETRAG') as TFloatField).DisplayFormat := '0.00';

Innerhalb von FR gebe ich die Summe in einem TfrxMemoView Feld mit folgender Formel [SUM(<frxDsQuery1Data."BETRAG">,MasterData1)] aus.
Der Wert ist Format Number mit Format string: %2.2f eingestellt. Hier erhalte ich ein falsches Ergebnis.

Rechne ich selber mit, so erhalte ich ebenfalls ein falsches Ergebnis.

Delphi-Quellcode:

procedure frxDsQuery1DataBETRAGOnAfterData(Sender: TfrxComponent);
begin
  SumBetrag := SumBetrag + Value; // falsches Ergebnis da der ungerundete Wert addiert wird                                                                                                                               
end;

Als Anhang den relevanten Teil des Reports als 'Excel table' Export.
Bilde ich die Summe des Betrags in der Excel Tabelle so erhalte ich Spalte BJ = 1164,49
FR gibt nach obigem Code 1164,50 aus was der ungerundeten Summe entspricht.
Innerhalb des Reports wird die automatische Summe im TfrxMemoView auch mit 1164,50 ausgegeben.


ersetze ich meine manuelle Berechnung durch den nachfolgenden Code, so erhalte ich das richtige Ergebnis

  SumBetrag := SumBetrag + StrToFloat(FormatFloat('0.00', Value)); Somit kann ich mich auf die Berechnung von FR ja nicht verlassen oder habe ich etwas übersehen ?