Array durch Objectlist ersetzen

[DeddyH]

Nehmen wir mal an, die Ursprungsklasse sah etwa so aus:

Delphi-Quellcode:

type
  TDings = class
  private
    FSubObjects: array of TDings;
    ...
  end;

Dann muss man doch "nur" das Array durch die geforderte TObjectlist ersetzen.

Delphi-Quellcode:

type
  TDings = class
  private
    FSubObjects: TObjectlist;
    ...
  end;

Allerdings darf man nicht vergessen, diese Instanz nun auch zu erzeugen (z.B. im Konstruktor) und später wieder freizugeben (z.B. im Destruktor).

[edit] Außerdem fallen SetLength()- und ähnliche Aufrufe weg, dafür muss man nun die Methoden der TObjectlist benutzen (Add etc.). [/edit]