Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Ööhhmm... hö :?: Aber egal, wenn es jetzt funktioniert, ist ja alles gut :-D
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Ist der Speicherfehler denn jetzt auch behoben, oder hast Du nur das Free im Destruktor rausgeworfen und bekommst nun Memoryleaks?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Du musst auch den Parent für das Objekt2 setzen.constructor TObjekt1.Create(AOwner: TComponent; Anders : byte);
begin
inherited Create(AOwner);
Parent := AOwner as TWinControl;
case Anders of
...
2:
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Wenn ich nicht total daneben liege, fügt Delphi bei STRG-SHIFT-C das inherited selbst automatisch ein, das kann also nicht so falsch sein ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Wenn Objekt2 mit nil initialisiert ist, führt ein Free nicht zum Fehler.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Verwirrt bin ich auch. Was möchtest Du denn erreichen? Willst Du ein TObjekt1 erzeugen, dass je nach Stand von "Anders" wiederum ein TObjekt2 erzeugt?
Oder sollen das 2 unterschiedliche TObjekt1 sein?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2009
Außerdem ist es nicht so günstig, das Objekt mit einem anderen Owner zu erzeugen und es dann doch selbst freizugeben.
@Teekeks: das geht schon, aber dann ist die erste Referenz nicht mehr erreichbar.