Hallo,
es gibt eine Funktion in der
Unit math, die das macht.
function Sum(const Data: array of Double): Extended;
Als kleines Beispiel:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var a:array[1..5] of double;b:double;s:string;
begin
a[1]:=3;a[2]:=-5;a[3]:=-13;a[4]:=45;a[5]:=3;
b:=Sum(a);
str(b,s);
label2.caption:=s;
end;
Rainer