Hallo,
das wollte ich auch vorschlagen,
aber darf/soll man im Constructor eine Eception auslösen?
Delphi-Quellcode:
CONSTRUCTOR TMyObject.Create;
VAR
i : Integer;
BEGIN
INHERITED;
TRY
i := StrToInt('f');
EXCEPT
RAISE;
END;
END;
PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
aObject : TMyObject;
BEGIN
aObject := TMyObject.Create;
// Zusatz, wird nicht abgearbeitet, wenn
// im Constructor des Obj Fehler auftritt.
TRY
//...
FINALLY
aObject.Free;
END;
END;
[EDIT] Ups, da warst Du wieder einmal schneller, Christian, na ja,
ich frage trotzdem: ist obiger Ansatz sinnvoll? [/EDIT]