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

* Overloaded split needs similar patch

Browse Source 
git-svn-id: trunk@44313 -
This commit is contained in:
michael 2020-03-19 21:41:58 +00:00
parent 123fe94206
commit 5fe164498b
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

@ -1311,9 +1311,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;