57procedure Calcule();
var
i: Integer;
total: Decimal;
begin
total := 0; // Initialise la variable total
// Boucle pour itérer à travers les enregistrements
for i := 1 to Rec.COUNT do begin
total := total + Rec.Amount;
end;
end;
Categories:
