summaryrefslogtreecommitdiff
path: root/lowlevelunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'lowlevelunit.pas')
-rw-r--r--lowlevelunit.pas11
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;