Procedure, Array als Rückgabewert?

[Hallo_Thomas]

Zitat von axelf98:

Zitat von Hallo_Thomas:

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd);
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

1) Array-Grenzen verletzt: setlength(Array,länge) Zugriff immer nur von Array[0] bis Array[länge-1]!

[edit] zu langsam.. Musste aber auch schon um 5 heute raus..[/edit]

Wie änder ich das ab? Bei mir erscheint immer nur Stack-überlauf.