Einzelnen Beitrag anzeigen

MatthiasR

Registriert seit: 21. Apr 2005
193 Beiträge
 
#7

Re: Behandlung von Exceptions innerhalb von Konstruktoren

  Alt 18. Sep 2007, 09:49
OK, ich verstehe, erstmal danke für ausführliche die Hilfe !

Wäre denn auch folgender Aufbau sinnvoll (so würde ich es dann machen wollen):
Delphi-Quellcode:
procedure TForm1.TuWas;
var
  Test: TTest;
begin
  try
    Test := TTest.Create();
    try
      // Irgendwas mit Test anstellen
    finally
      FreeAndNil(Test); // habe mir eben FreeAndNil angewöhnt ;)
    end;
  except
    ShowMessage('Es trat in Prozedur "TuWas" ein Fehler auf.');
  end;
end;
  Mit Zitat antworten Zitat