Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
Nein ich habe das Objekt2.Free nicht rausgeworfen und der Speicherfehler ist weg.
Es lag scheinbar nur daran, dass ich den Parent jedesmal extra angeben muss. Warum ist mir aber nicht wirklich klar ....
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
:thumb: Danke das war es :hello: Der überaus bösartige Parent war wirklich schuld....
So klapptes:
constructor TObjekt1.Create(AOwner: TComponent; Anders : byte);
begin
inherited Create(AOwner);
case Anders of
1:
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
Das mit der besseren Kapslung bringt leider auch nix.
himitsu dein Vorschlag läuft zwar ohne Fehler, allerdings wird das TEdit Feld, also Objekt2 nicht mehr auf dem Formblatt angezeigt.:(
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
Ok danke dir.
Das mit dem inheritet weiß ich jetzt auch nicht das mach ich immer so....
PS: Wenn ich "Objekt2.Free" raushole geht es problemlos, wäre das sehr tragisch ? :shock:
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
Ja dachte auch, dass .Free überprüft ob Objekt2 überhaupt erstellt ist.
Wie das mit der Referenz geht könnte mir vielleicht jemand erklären, wäre nett.
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
Also ich will ein TObjektMit2Objekten erzeugen, dass je nach Stand von "Anders" ein TObjekt1 ohne einem TObjekt2 oder ein TObjekt1 mit einem TObjekt2 erzeugt.
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Okt 2009
Aso jetzt bin ich aber doch etwas verwirrt also wäre dann
Objekt1a := TObjekt1.Create(ZuBenutzendesFormular,1);
Objekt1b := TObjekt1.Create(ZuBenutzendesFormular,2);
richtig?
Was aber auch nicht zu gehen scheint...