EAccessViolation abfangen

[Andreas L.]

Hi,
wie kann ich eine EAccessViolation abfangen? Mit try und except geht das leider nicht...

Hier mein Code:

Delphi-Quellcode:

function RemovePanel:Boolean;
begin
 try
  begin
  (MarkedPanel as TPanel).Destroy;
  Result:=True;
  end;
 except
  Result:=False;
 end;
end;

MarkedPanel ist eine Globale Variable vom Typ "TObject", in ihr steht das selektierte Panel. Eine Möglichkeit das ganze zu umgehen wäre wohl die globale Variable zu überprüfen ob was drinsteht, aber ich suche nach was besseren.

Schonmal Danke und einen schönen Feierabend ;-)

[Die Muhkuh]

Du kannst das begin und end nach try weglassen:

Delphi-Quellcode:

function RemovePanel:Boolean;
begin
try
  (MarkedPanel as TPanel).Destroy;
  Result:=True;
except
  Result:=False;
end;
end;

[Andreas L.]

Ich weiß, tut aber nichts zu meinen Problem ;-)

[Hawkeye219]

Hallo onlinehome,

• Die Exception wird nur beim Starten des Programms innerhalb der IDE gemeldet. Wie man dieses Verhalten abschaltet, wird u.a. in diesem Thread beschrieben.
• In Deinem Beispiel ist ein TRY..EXCEPT gar nicht notwendig. Du könntest mit dem AS-Operator prüfen, ob in der Variablen wirklich eine gültige TPanel-Instanz steht.
• Destroy sollte nie direkt aufgerufen werden! Freigaben führt man durch einem Aufruf der Methode Free() durch.

Gruß Hawkeye

[Andreas L.]

Zitat:

Zitat von Hawkeye219

Hallo onlinehome,

• Die Exception wird nur beim Starten des Programms innerhalb der IDE gemeldet. Wie man dieses Verhalten abschaltet, wird u.a. in diesem Thread beschrieben.
• In Deinem Beispiel ist ein TRY..EXCEPT gar nicht notwendig. Du könntest mit dem AS-Operator prüfen, ob in der Variablen wirklich eine gültige TPanel-Instanz steht.
• Destroy sollte nie direkt aufgerufen werden! Freigaben führt man durch einem Aufruf der Methode Free() durch.

Gruß Hawkeye

Ok, Danke :thumb:

[Christian Seehase]

Moin Andreas,

oder vielleicht so:

Delphi-Quellcode:

Result := (MarkedPanel is TPanel);
if Result then MarkedPanel.Free;

[Hawkeye219]

@Christian Seehase
Du hast natürlich völlig Recht! Ich meinte is und schrieb as...

[3_of_8]

IMHO gehts auch mit assigned(MarkedPanel).

[Muetze1]

Wenn das Objekt so oder so freigegeben werden soll - egal ob es nun ein Panel oder sonstwas ist - und auch die Funktion mehrfach aufgerufen werden könnte, dann so:

Delphi-Quellcode:

  FreeAndNil(MarkedPanel);

Das war dann alles.

- FreeAndNil() ruft free auf, somit keine Probleme, wenn die Variable = Nil ist.
- Der Destruktor ist virtuell, somit wird der richtige Destruktor des darin enthaltenen Objektes aufgerufen
- Nach dem Free wird MarkedPanel auf Nil gesetzt und somit dafür gesorgt, dass es nicht mehrfach freigegeben wird.

[Andreas L.]

Ok, mein Code lautet nun so:

Delphi-Quellcode:

function RemovePanel:Boolean;
begin
 if MarkedPanel.ClassType=TPanel then
  begin
  FreeAndNil(MarkedPanel);
  Result:=True;
  end
 else
  begin
   Result:=False;
  end;
end;

Klappt wunderbar ;-)

[Christian Seehase]

Moin Andreas,

Du hast auch die Hilfe zu ClassType gelesen?

Zitat:

Zitat von OH - ClassType

Avoid using ClassType in application code.
In Delphi code, use the is or as operators instead of ClassType.

Ausserdem hast Du das Problem, dass Du Dir eine AV einhandelst, wenn MarkedPanel = nil ist, oder einen ungültigen Pointer enthält.

[Andreas L.]

Zitat:

Zitat von Christian Seehase

Moin Andreas,

Du hast auch die Hilfe zu ClassType gelesen?

Zitat:

Zitat von OH - ClassType

Avoid using ClassType in application code.
In Delphi code, use the is or as operators instead of ClassType.

Ausserdem hast Du das Problem, dass Du Dir eine AV einhandelst, wenn MarkedPanel = nil ist, oder einen ungültigen Pointer enthält.

Und wie soll das mit den is-Operator gehen?

Delphi-Quellcode:

if MarkedExPanel.ClassType is TPanel then

[3_of_8]

Genau. Denn wenns nicht instantiiert ist, ist es auch kein Panel, sondern nur ein Pointer ins nirgendwo.

[Hawkeye219]

Christian Seehase hat's in Beitrag #6 beschrieben...

[Andreas L.]

Ok, funktioniert. Nochmal Vielen Dank an alle