paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r47068 into '.':

Browse Source 
U    rtl/objpas/sysutils/syshelp.inc
U    rtl/objpas/sysutils/syshelph.inc
--- Recording mergeinfo for merge of r47068 into '.':
 U   .

# revisions: 47068
r47068 | michael | 2020-10-09 13:21:30 +0200 (Fri, 09 Oct 2020) | 1 line
Changed paths:
   M /trunk/rtl/objpas/sysutils/syshelp.inc
   M /trunk/rtl/objpas/sysutils/syshelph.inc

* Patch from Werner Pamler to implement TStringSplitOptions.ExcludeLastEmpty

git-svn-id: branches/fixes_3_2@47099 -
This commit is contained in:
marco 2020-10-12 08:01:59 +00:00
parent 3659780850
commit c2bd150407
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/syshelp.inc
View File

@ -1232,6 +1232,11 @@ begin
Inc(Len);
end;
end;
if (TStringSplitOptions.ExcludeLastEmpty=Options) then
if (Len > 0) and (Result[Len-1] = '') then
dec(Len);
SetLength(Result,Len);
end;
@ -1318,6 +1323,11 @@ begin
Inc(Len);
end;
end;
If (TStringSplitOptions.ExcludeLastEmpty=Options) then
if (Len > 0) and (Result[Len-1] = '') then
dec(Len);
SetLength(Result,Len);
end;

2
rtl/objpas/sysutils/syshelph.inc
View File

@ -52,7 +52,7 @@ Type
TCompareOptions = system.TCompareOptions;
{$SCOPEDENUMS ON}
TStringSplitOptions = (None, ExcludeEmpty);
TStringSplitOptions = (None, ExcludeEmpty, ExcludeLastEmpty);
{$SCOPEDENUMS OFF}
{ TStringHelper }