Objekterstellung im Konstruktor abbrechen

[alzaimar]

Wieso sind Exceptions nicht elegant?

Delphi-Quellcode:

Try
  anObject := TMyObject.Create;
  anOnject.DoSomeThing;
  anObject.AProperty := FooBar
Except
  Showmessage('Das Objekt konnte nicht erzeugt werden')
End;