Forum: Object-Pascal / Delphi-Language
by norwegen60,
4. Apr 2021
Alles klar.
Mein Hauptproblem war zuerst mal überhaupt eine BaseObjectList zu erzeugen die die Standardproperties enthält.
Ich war mir nicht sicher, ob das Senden der Message an alle nicht noch irgenwelche Zusatzlasten erzeugt
In dem Fall ist mein Problem vollumfänglich gelöst. Für mich eine sehr lehrreiche Lektion.
Vielen Dank für deine Geduld. Du bist einfach Spitze.
Forum: Object-Pascal / Delphi-Language
by norwegen60,
4. Apr 2021
Also zuerst noch mal vielen Dank. Damit kann ich die bestehende Klassenstruktur demnächst mal um einiges vereinfachen.
An einer Stelle hänge ich aber noch:
Wie kann ich erkennen dass das ParentObject meine TBaseObjectList ist? In meinem Konstrukt kann ParentObject die TBaseObjectList sein. Es könnte aber auch eine von TBase abgeleitete Klasse sein, eine unabhängige Klasse oder NIL
Kein...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
4. Apr 2021
Gestern war ich ja mal richtig optimistisch, dass ich da bald zu einer Lösung kommme, aber der Optimismus schwindet.
Vielleicht liegt es ja an Delphi XE
Das Positive: Mit dem neuen Konstrukt funktioniert es zunächst mal einwandfrei
Zugriff auf lNamen.Namen ist möglich
FChanged der Liste wird gesetzt sobald ich lNamen.Namen ändere
Dann aber die Fehler
1. Sobald ich das Programm...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
3. Apr 2021
Ich bin nicht sicher ob jetzt ein Teil meiner Anforderung verloren gegangen ist.
So wie TBase die Basisklasse für meine kommenden Objekte ist, sollte TBaseObjectList die Basisklasse für meine kommenden Listen sein
Eine der kommenden Klasse incl. Liste könnte dann so aussehen
//...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
3. Apr 2021
Ja, da hast du natürlich recht. Das Problem ist aber, dass Delphi die Typprüfung if (FParentObject is TBaseObjectList) then nicht akzeptiert. Genauso wenig wie die Zuweisung TBaseObjectList(FParentObject).Changed := true. Und da suche ich nach einer Möglichkeit, wie ich auf die BasisListe per TypeCast zugreifen kann.
Das mit dem Counter oder der zusätzlichen Liste sind Möglichkeiten, machen...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
3. Apr 2021
Hallo zusammen,
ich möchte in einer TObjectList erkennen, wenn sich ein Object in der Liste geändert hat. Dazu habe ich folgendes (vereinfachtes) Konstrukt angedacht:
// ***************************************************************************************************************************************
// Die Basisliste mit dem Property Changed
TBaseObjectList<T: class> =...