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

* Fix bug #36806, do not add empty last sep, patch from Delfion

Browse Source 
git-svn-id: trunk@44312 -
This commit is contained in:
michael 2020-03-19 13:47:49 +00:00
parent 5cd59fd353
commit 123fe94206
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1225,9 +1225,12 @@ begin
begin
T:=SubString(LastSep);
// Writeln('Examining >',T,'< at pos,',LastSep,' till pos ',Sep);
MaybeGrow(Len);
Result[Len]:=T;
Inc(Len);
If (T<>'') or (not (TStringSplitOptions.ExcludeEmpty=Options)) then
begin
MaybeGrow(Len);
Result[Len]:=T;
Inc(Len);
end;
end;
SetLength(Result,Len);
end;