calculating Rows in Table

[Bummi]

Delphi-Quellcode:

function Calculate_(table: TABSTable; Field: string):string;
var
  tpRunTotal: Double;
begin
tpRunTotal := 0;
with Table do
begin
  First;
  while not EOF do
  begin
    tpRunTotal := tpRunTotal + Table.FieldByName(field).AsFloat;
    Next;
  end;
end;
Result := FormatFloat('0.00',tpRunTotal ) 
end;

but mentioned Query with SUM will be better ...