summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2017-08-14 11:43:24 +0200
committerErich Eckner <git@eckner.net>2017-08-14 11:43:32 +0200
commit6c452f021814c91001f3a4f97bf8e2fc97367dcc (patch)
treecddf931fb65d0d33a72b19aeb795b9e8d02abdcb
parent4f9953460f120c50fb15173c50f544dcbe8a2c31 (diff)
downloadunits-6c452f021814c91001f3a4f97bf8e2fc97367dcc.tar.xz
lowlevelunit.pas: startetMit kann jetzt auch nicht trimmen
-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;