TObjectList

[DeddyH]

Sinnfreier Beispielcode:

Delphi-Quellcode:

uses Windows, SysUtils, {usw.} Contnrs;

...

var 
  Liste: TObjectList;
  i: integer;
  EineKlasse: TEineKlasse;
begin
  Liste := TObjectList.Create;
  try
    for i := 0 to 9 do
      begin
        EineKlasse := TEineKlasse.Create;
        EineKlasse.Bla := Blubb;
        Liste.Add(EineKlasse);
      end;
  finally
    Liste.Free;
  end;
end;