dynamische Array kopieren (letztes Element fehlt)

[QuickAndDirty]

Nur mal so am rande bedeutet das, dass folgendes das selbe macht

Delphi-Quellcode:

Procedure Main;
  var Keys:TStringDynArray;

  Procedure KeyFooRef(var arr:TStringDynArray)//MIT VAR
  Begin
    Setlength(arr,4);
    arr[0] := 'Das'; 
    arr[1] := 'ist';
    arr[2] := 'ein';
    arr[3] := 'Test';
  end;

  Procedure KeyFooVal(arr:TStringDynArray)// OHNE VAR
  Begin
    Setlength(arr,4);
    arr[0] := 'Das'; 
    arr[1] := 'ist';
    arr[2] := 'ein';
    arr[3] := 'Test';
  end;

Begin
  KeyFooRef(Keys);//Fall 1
  KeyFooVal(Keys);//Fall 2
end;