Dynamische Arrays verhackstückt :(

[Binärbaum]

Zitat von glkgereon:

Delphi-Quellcode:

  TIntDynArray = array of Integer;

function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
  for i:=1 to Len do
      begin
      inc(index);
      Result[index]:=i;
      end;
end;

so, das is jetzt meine function, nur sehr verkleinert und vom sinn "etwas" verändert...

nur bei dem befehl Result[index]:=i; kommt immer ein fehler der art "Zugriffsverletzung an der Adresse XYZ in Modul WasAuchImmer.

warum???

Es sollte so aussehen:

Delphi-Quellcode:

  TIntDynArray = array of Integer;

function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
   index:=0;
   SetLength(Result, Len);
   for i:=1 to Len do
      begin
      inc(index);
      Result[index]:=i;
      end;
end;

MfG
Binärbaum