Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.883 Beiträge
 
Delphi 12 Athens
 
#1

Try Except und Re raise geht nicht

  Alt 21. Jul 2009, 13:26
Hallo ,
ich hatte einen so ähnlichen Thread schon mal in dem ich festgestellt habe das
eine Unit in Delphi 7
welche einen try except Block im Initialization und im Finalization Teil hat
in einem Package eingebunden dazu führt das es sich nicht INSTALLIEREN lässt.

Warum? Kkann ich da was anderes machen als die try excepts zu entfernen?

Mein neustes nicht installierbares Beispiel sieht so aus.
Delphi-Quellcode:
initialization
  try
    Session := TVSession.Create(nil);
  except
    On E:Exception do
      Raise Exception.create('Error in DBDLL_Fn.initialization: '+e.message);
  end;

Finalization
  try
    Session.Free;
    Session := nil;
  except
    On E:Exception do
      Raise Exception.create('Error in DBDLL_Fn.finalization: '+e.message);
  end;
end.


So gehts
Delphi-Quellcode:
initialization
// try
    Session := TVSession.Create(nil);
(*  except
    On E:Exception do
      Raise Exception.create('Error in DBDLL_Fn.initialization: '+e.message);
  end;*)


Finalization
// try
    Session.Free;
    Session := nil;
(*  except
    On E:Exception do
      Raise Exception.create('Error in DBDLL_Fn.finalization: '+e.message);
  end;*)

end.
Andreas
Monads? Wtf are Monads?
  Mit Zitat antworten Zitat