Problem mit string array

[DeddyH]

Zum Beweis ein Beispielprojekt mit einem Memo:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var arr: array of String;
    i: integer;
begin
  SetLength(arr,3);
  for i := Low(arr) to High(arr) do
    arr[i] := 'Hallo';
  for i := Low(arr) to High(arr) do
    Memo1.Lines.Add(arr[i]);
  for i := Low(arr) to High(arr) do
    arr[i] := arr[i] + ' Welt';
  for i := Low(arr) to High(arr) do
    Memo1.Lines.Add(arr[i]);
  SetLength(arr,0);
end;

Funktioniert ohne Murren.

[edit] Crossposts bitte künftig verlinken. [/edit]