Suma campos Banda Subdetalle, FastReport

[jonharchival]

Hola de nuevo.
Finalmente he logrado hacer la dichosa suma. Copio el código por si a alguien le vale:
"

Código Delphi [-]
var
 List: TStringList;
 i: Integer;
 
procedure frReport1OnStartReport(Sender: TfrxComponent);
begin
 List := TStringList.Create;
end;
 
procedure frReport1OnStopReport(Sender: TfrxComponent);
begin
 List.Free;
end;
 
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
 i := 0;
end;
 
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FinalPass then
   Memo8.Text := 'Sum: ' + List[i];
end;
 
procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
if not Engine.FinalPass then
   List.Add(FloatToStr(SUM(,MasterData1)));
 Inc(i);
end;
 
begin
 
end.

"
Gracias a todos

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias