neue Prozedur in lowlevelunit.pas: raiseAndDumpExceptionCallStack

1 files changed, 10 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index a887b58..60de043 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -66,6 +66,7 @@ procedure myDebugLnThreadLog(s: string);
 function belegterSpeicher: longint;
 procedure cleanupLogs;
 procedure cleanupLog(tid: PtrUInt);
+procedure raiseAndDumpExceptionCallStack(msg: string);
 procedure dumpExceptionCallStack(E: Exception);
 function startetMit(start: string; var s: string): boolean;
 function endetMit(ende: string; var s: string): boolean;
@@ -563,6 +564,15 @@ begin
  end;
 end;
 
+procedure raiseAndDumpExceptionCallStack(msg: string);
+var
+  e: exception;
+begin
+  e:=exception.create(msg);
+  dumpExceptionCallStack(e);
+  raise e;
+end;
+
 procedure dumpExceptionCallStack(E: Exception);
 var
   I: Integer;