Suche Alternative zu Array

[semo]

Delphi-Quellcode:

type
  TAuto = record
    Marke: string;
    Modell: string;
    Tueren: Integer;
  end;
  PAuto = ^TAuto;

procedure TForm4.FormCreate(Sender: TObject);
var
  AList: TList;
  Auto1: PAuto;
  Auto2: PAuto;
begin
  AList := TList.Create();
  try
    Auto1 := New(PAuto);
    Auto1.Marke := 'blubb';
    Alist.Add(Auto1);
    Auto2 := AList[0];
    ShowMessage(Auto2^.Marke);
  finally
    AList.Free();
  end;
end;

mal eben zusammengehackt.
Speicher sollte nach new() auch wieder freigegeben werden mit dispose