Try - except - finally

[Morphie]

Zitat von Furtbichler:

Delphi-Quellcode:

Procedure TMyClass.EncryptAndForwardToReceipient(data : TData);
Begin
  EncryptAndForwardToReceipient(data);
End;

Ist das nicht eine unendliche Rekursion?

[Mavarik]

Wie wär es mit

Delphi-Quellcode:

result := true;
try
  A := TFoo.Create;
  try
    ...
    if bla then
      Exit;     
    ...
  finally
    A.Free;
  end;
except
  result := false;
end;

Mavarik