Alle Instanzen einer Klasse benachrichtigen

[shmia]

1.) ein Liste der Klasse TObjectList ist besser, weil Items hinzugefügt und entfernt werden können,
ohne dass wie im Array Verschiebereien stattfinden.
2.) Die Liste darf es nur einmal geben, da sie zur Klasse TMensch gehört.
3.) Die Liste wird also als globale Variable im Abschnitt implementation geführt
4.) TMensch.Create trägt sich selbst in die Liste ein und TMensch.Destroy trägt sich selbst aus der Liste aus.
5.) TMensch.Create prüft, ob es die Liste schon gibt, falls nicht, wird sie erzeugt
6.) TMensch.Destroy prüft, ob es das letzte Objekt in der Liste war. Falls ja: FreeAndNil(liste)