Nochmal für mich als Rentner zum Mitschreiben:
Du hast also tierisch viele Objekte, die Du ... wie erzeugst? So etwa?
Oder wie?
Also, ich habe bei mir, wenn überhaupt, immer eine Liste von Objekten. Dann habe ich eine Funktion, die mir ein neues Objekt liefert. In der Funktion speichere ich das Objekt dann in einer TList ab. Wozu eigentlich dynamische Arrays? Ist doch Murks. Dann noch eine, die eine Instanz wieder freigibt. Wenn Du richtig abschleimen willst, dann kannst Du ja noch davon ausgehen, das die Objekte 'wissen', das sie in einer Liste gespeichert werden, also ähnlich einer Collection:
Delphi-Quellcode:
Constructor TMyObject.Create;
Begin
Inherited;
aMyObjectList.Add (Self);
...
End;
Destructor TMyObject.Destroy;
Begin
aMyObjectList.Remove (Self);
...
Inherited;
End;
Procedure FinalizeObjects;
Var
i : Integer;
Begin
While aMyObjectList.Count > 0 do TMyObject (aMyObjectList).Free;
aMyObjectList.Free;
End;
Initialization
aMyObjectList := TList.Create;
Finalization
FinalizeObjects;
end.
Nur mal so: Gewöhn Dir doch mal an, soweit möglich, die vorhandenen Delphi-Klassen zu nehmen, die sind echt praktisch. Wenn man sich mal dran gewöhnt hat, machen die einem das Leben sogar einfacher.
P.S: TObjectList gibts wohl erst *nach* D6, oder? Ich habs jedenfalls nicht...