lowlevelunit.pas: startetMit kann jetzt auch nicht trimmen

1 files changed, 7 insertions, 4 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 1198fdd..e22369c 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -77,7 +77,7 @@ procedure cleanupLogs;
 procedure cleanupLog(tid: ptrUInt);
 procedure raiseAndDumpExceptionCallStack(msg: string);
 procedure dumpExceptionCallStack(e: exception);
-function startetMit(start: string; var s: string): boolean;
+function startetMit(start: string; var s: string; trimmen: boolean = true): boolean;
 function endetMit(ende: string; var s: string): boolean;
 function trimAll(s: string): string;
 function erstesArgument(var s: string; trenner: string = ' '; trimmen: boolean = true): string; inline;
@@ -606,11 +606,14 @@ begin
   gibAus(report,3);
 end;
 
-function startetMit(start: string; var s: string): boolean;
+function startetMit(start: string; var s: string; trimmen: boolean = true): boolean;
 begin
   result:=leftStr(s,length(start))=start;
-  if result then
-    s:=trim(rightStr(s,length(s)-length(start)));
+  if result then begin
+    s:=rightStr(s,length(s)-length(start));
+    if trimmen then
+      s:=trim(s);
+  end;
 end;
 
 function endetMit(ende: string; var s: string): boolean;