Procedure, Array als Rückgabewert?

[Hallo_Thomas]

???Programm läuft zwar wieder, aber die Wertigkeiten werden in der Hauptprozedur immer noch nicht auf null gesetzt.


Hauptprozedur:

Delphi-Quellcode:

EinWert(Wertigkeit,0,11,result);
     begin
      Eins  :=Wertigkeit[1];
      Zwei  :=Wertigkeit[2]+Wertigkeit[8]+Wertigkeit[10];
      Drei  :=Wertigkeit[3]+Wertigkeit[9]+Wertigkeit[11];
      Vier  :=Wertigkeit[4];
      Fuenf :=Wertigkeit[5]+Wertigkeit[9]+Wertigkeit[10];
      Sechs :=Wertigkeit[6]+Wertigkeit[8]+Wertigkeit[11];
      Sieben:=Wertigkeit[7];

Nebenprocedur:

Delphi-Quellcode:

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