paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 23:40:14 +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

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

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