Erstellen von Objektlisten während des Programmablaufs

[Blup]

Beispiel:

Delphi-Quellcode:

FMeineListen := TObjectList.Create;

for i := 0 to Anzahl - 1 do
  FMeineListen.Add(TObjectList.Create);


function GetObjectList(AIndex: Integer): TObjectList;
begin
  Result := FMeineListen[AIndex] as TObjectList;
end;

GetObjectList(5).Add(TMeinObject.Create);

MeinObject := GetObjectList(5)[1] as TMeinObject;