function mit unterschiedlichen parametern

[Muetze1]

Moin!

Code:

Delphi-Quellcode:

function Summe(Const Zahlen : Array Of Integer): integer
Var
  i : Integer;
begin
  Result := 0;
  For i := Low(Zahlen) To High(Zahlen) Do
    Inc(Result, Zahlen[i]);
end;

Aufruf:
lSum := Summe([0, 23, 4, 65, 12, 33, 6, 2, 4, 7, 9]); Die Liste kannst du einfach mit einem Komma erweitern.

MfG
Muetze1