TObjectlist in TObjectList

[mimi]

also wegen dem codestyl:
ich finde der ist für mich übersichtlich aber das ist geschmacksache....
das mit den Variabeln bennung undsoweiter hast du natürlichrecht nur ich bin dazu zufaul wenn mir keine auf anhib einfallen die die funktion der variable/procedure beschreiben....
zum With: ich wollte es auch weglassen nur dann kamm ein compiler fehler:
"Linkeseite kann nicht zugewisen werden." das habe ich auch nicht ganzso verstanden. und mit with hat es halt geklappt darum....


zum eigentlichen problem:
ich habe mehre Objekte und jedes objekte soll in der lage sein Weiter Objekte aufzunehmen also ein "Objekt Container" wobei die objekte verschoben werden sollten in das objekte wo ich es hineinziehe....
Ich schreibe in einem team ein grafikprogramm und wenn ich es jetzt umstelle auf OOP können wir gleich von vorne anfangen das wollten wir nicht(ich schon aber)... aber warum hat das mit meiner idee nicht geklappt. Ich hatte doch eine prüfung <> nil gemacht


----

Zitat:

mimi hat folgendes geschrieben:

Delphi-Quellcode: markieren
TStyle = record
obj1:TObjectList;
.....
end;

und nun habe ich eine weiter tList um das object zu verwalten. das heißt so eine art Object Baum.


Eine weitere TList? Wo ist denn die erste TList?
Um das Objekt zu verwalten? Wo ist denn das Objekt? Ein Record ist kein Objekt!

die erste ist im Hauptprogramm defniert und die weitere ist in TStyle defniert.... und installsiert wird sie in der Create procedure.