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 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

[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:

  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