Behandlung von Exceptions innerhalb von Konstruktoren

[SirThornberry]

oder so:

Delphi-Quellcode:

var 
  test: TTest;
begin
  try
    test := TTest.Create();
    try
      //do anything with the objectinstance of test
    except
      ShowMessage('Fehler beim hantieren mit dem Object.');
    end;
    test.Free;
  except
    ShowMessage('Fehler beim erzeugen des Objectes.');
  end;