Dynamische Arrays (mal wieder)

[DeddyH]

Nochmal: nicht Typ und Variablen verwechseln. Das hier geht bei mir unter Delphi 2007 ohne Probleme:

Delphi-Quellcode:

type
  TDingens = record
    SomeString: string[10];
    SomeInt: integer;
  end;

  TDingensArray = array of TDingens;

...

function GetNextFreeField(var DingensArray: TDingensArray): integer;
begin
  SetLength(DingensArray, Length(DingensArray) + 1);
  DingensArray[High(DingensArray)].SomeInt := Length(DingensArray);
  Result := High(DingensArray);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dingens: TDingensArray;
  i: integer;
begin
  GetNextFreeField(Dingens);
  GetNextFreeField(Dingens);
  GetNextFreeField(Dingens);
  (* Zugriff auf die Variable und nicht auf den Typ TDingensArray *)
  for i := Low(Dingens) to High(Dingens) do
    ShowMessage(IntToStr(Dingens[i].SomeInt));
  Dingens := nil;
end;