diff options
| -rw-r--r-- | lowlevelunit.pas | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index e9991ed..ced3603 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -73,8 +73,7 @@ procedure dumpExceptionCallStack(E: Exception); function startetMit(start: string; var s: string): boolean; function endetMit(ende: string; var s: string): boolean; function trimAll(s: string): string; -function erstesArgument(var s: string): string; overload; inline; -function erstesArgument(var s: string; Trenner: string): string; overload; inline; +function erstesArgument(var s: string; Trenner: string = ' '; trimmen: boolean = true): string; inline; function mydatetimetostr(t: tDateTime): string; function t2x2ExtendedToStr(p: t2x2Extended): string; function tExtPointToStr(p: tExtPoint): string; @@ -588,15 +587,11 @@ begin delete(result,pos(' ',result),1); end; -function erstesArgument(var s: string): string; -begin - result:=erstesArgument(s,' '); -end; - -function erstesArgument(var s: string; Trenner: string): string; +function erstesArgument(var s: string; Trenner: string; trimmen: boolean): string; begin result:=copy(s,1,pos(Trenner,s+Trenner)-1); delete(s,1,length(result)+length(Trenner)); + if not trimmen then exit; s:=trim(s); result:=trim(result); end; |