Abstrakter Fehler beim freigeben einer Komponente unter Delphi XE

[himitsu]

Zitat:

TAdvPanel(Hauptform.FindComponent('SatzEditPanel'+ IntToStr(PanelNr))).Free;

Eigentlich ist der Cast unnötig, da TComponent schon das Free kennt.
Hauptform.FindComponent('SatzEditPanel'+ IntToStr(PanelNr)).Free;
Was passiert hier?
(Hauptform.FindComponent('SatzEditPanel'+ IntToStr(PanelNr)) as TAdvPanel).Free;
Free wurde doch hoffentlich nirgendwo überschrieben?

Delphi-Quellcode:

if not (TObject(Hauptform) is TForm) then
  raise Exception.Create('Fehler');
if not (Hauptform.FindComponent('SatzEditPanel' + IntToStr(PanelNr)) is TAdvPanel) then
  raise Exception.Create('Fehler');
Hauptform.FindComponent('SatzEditPanel'+ IntToStr(PanelNr)).Free;

Hast du vom 2007 mindestens eine Professional?
Wenn ja, dann schalte in den Projektoptionen die Debug-DCUs an, setze einen Haltepunkt auf das .Free und schau mit F7 nach, wo es knallt.

Zitat:

Also statt

TAdvPanel.Create(self) einfach

TAdvPanel.Create(nil)

Joar, wenn das "Self" vor deinem Free freigegeben wird, dann muß es hier natürlich auch knallen, weil das Panel ja dann schon weg ist.


Delphi 2 Desktop

[Tomski]

@mjustin @himitsu
Leider hilft das nil statt self nicht, es wird jetzt irgendwo zwischen dem Erzeugen der Kompenente und dem späteren Auflösen schon eine Exception ausgelöst, die zu suchen ist meiner Meinung nach Zeitverschwendung. Ich habe auch wie empfohlen geprüft ob die Komponente noch da ist zu dem Zeitpunkt wo Sie freigegeben wird... Sie ist da. Wie gesagt ist das Problem ziemlich sicher ein anderes Handling unter XE gegenüber 2007, irgendetwas muß unter XE andersd gemacht werden. Ein Suche nach Syntaxfehlern oder ähnlichem wird hier wohl nichts bringen, da es ja unter 2007 hervorragend läuft un keine Exceptions ausgelöst werden.

LG