Abstrakter Fehler beim freigeben einer Komponente unter Delphi XE

[Tomski]

Bei meinem Programm wird ein Abstrakter Fehler unter Delphi XE ausgelöst, wenn ich eine vorher zur Laufzeit erzeugte Komponente wieder freigebe. Unter Delphi 2007 wurde dieser Fehler nicht erzeugt. Hier der Quelltext...

With TAdvPanel.Create(self) do begin
...
...
end;

später im Quelltext wenn Sie wieder freigegeben wird, wird der Abstrakte Fehler ausgelöst.

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

Die Funktionen der Komponente sind einwandfrei. Auf dem Panel befinden sich noch andere Komponenten, die ich nicht extra freigebe. Habe ich aber auch schon probiert bringt nichts es wird immer wieder diese Exception ausgelöst. Wäre super wenn mir jemand sagen könnte wie ich das behebe.

Gruß an Alle
Tomski

[Jumpy]

Nur mal geraten, da nicht klar ist, was im with-Block passiert.
Es könnte sein, dass du denkst dass du da mit name:='blub' dem Panel einen Namen gibst während du diesen tatsächlich irgendwem anders zuweist.

[Tomski]

Hier der 'With-Block', wie gesagt die Komponente und alle auf der Komponente erzeugten Komponenten funktionieren einwandfrei und unter Delphi 2007 gibts diese Exception nicht. Es liegt also sehr wahrscheinlich an einer internen Änderung des Handlings unter Delphi.

With TAdvPanel.Create(self) do begin //ContainerPanel erzeugen
Parent := PanelSpielbericht;
Name := 'SatzEditPanel'+IntToStr(PanelNr); BevelOuter := TBevelCut(bvNone); Color := clMaroon;
Caption.Height := 20; Caption.TopIndent := Trunc((SatzEditPanelArray[DivAnzGewinnSaetze,2]-Caption.Height)/2); Caption.Color := clMaroon;
Caption.Font.Color := clYellow; Caption.Font.Name := 'Arial'; Caption.Font.Size := 11; Caption.Font.Style := [fsBold]; Caption.Visible := true;
Left := SatzEditPanelArray[DivAnzGewinnSaetze,0]; Top := ZeilenPosArray[PanelNr];
Height := SatzEditPanelArray[DivAnzGewinnSaetze,2]; Width := SatzEditPanelArray[DivAnzGewinnSaetze,3];
end;

Grüßle

[mjustin]

TAdvPanel(Hauptform.FindComponent('SatzEditPanel'+ IntToStr(PanelNr))).Free; Der Hardcast zu TAdvPanel ist unnötig.

Tritt der Fehler auch auf wenn das Free mit dieser Zeile ausgeführt wird?

  Hauptform.FindComponent('SatzEditPanel'+ IntToStr(PanelNr)).Free; Wenn der Sourcecode vorhanden ist, könnte man die eigentliche Ursache des Abstract Errors auch mit dem Debugger finden. Es wird eine abstrakte Methode aufgerufen, nur für welches Objekt das geschieht ist die Frage.

Auch ist es bei selbsterzeugten Komponenten nicht notwendig den Owner anzugeben, wenn man sie selbst wieder freigibt.

Also statt

TAdvPanel.Create(self) einfach

TAdvPanel.Create(nil)

[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

[dummzeuch]

Hi,

Zitat von Tomski:

Bei meinem Programm wird ein Abstrakter Fehler unter Delphi XE ausgelöst, wenn ich eine vorher zur Laufzeit erzeugte Komponente wieder freigebe. Unter Delphi 2007 wurde dieser Fehler nicht erzeugt. Hier der Quelltext...

Binde mal diese Unit ein:

http://sourceforge.net/p/dzlib/code/...actHandler.pas

Die sollte dafuer sorgen, dass der Abstract-Error den Debugger dort anhaelt, wo die abstrakte Methode aufgerufen wird.

twm

Gruss an Allan Mertner, von dem dieser Code original stammt.

[himitsu]

Das hat mich grade mal nachsehn lassen und in XE2 hat man da nun sowas Ähnliches gleich direkt integriert.

Aber schöner praktischer es gewesen, wenn diese Funktion im Debugmodus mit der RTTI gekoppelt würde und direkt den Klassen-/Methodennamen anzeigen würde.

[Tomski]

Danke für eure Infos und Tipps. Ich hab mal ein normales Panel verwendet und das lässt sich ohne Exception freigeben. So wie die Sache aussieht liegt der Fehler in der Vererbungsreihenfolge im AdvPanel. Also Danke noch mal...

[Uwe Raabe]

Zitat von Tomski:

Danke für eure Infos und Tipps. Ich hab mal ein normales Panel verwendet und das lässt sich ohne Exception freigeben. So wie die Sache aussieht liegt der Fehler in der Vererbungsreihenfolge im AdvPanel. Also Danke noch mal...

Du verwendest aber schon die zu XE gehörende Version von TAdvPanel?