diff options
| -rw-r--r-- | lowlevelunit.pas | 11 |
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; |