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

Fixed bug in split when final word has length 1 (bug ID 29798)

Browse Source 
git-svn-id: trunk@33209 -
This commit is contained in:
michael 2016-03-09 19:56:57 +00:00
parent 0f301b4c57
commit 839a0445a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1193,7 +1193,7 @@ begin
LastSep:=Sep+1;
Sep:=NextSep(LastSep);
end;
if (LastSep<Length-1) and ((ACount=0) or (Len<ACount)) then
if (LastSep<Length) and ((ACount=0) or (Len<ACount)) then
begin
T:=SubString(LastSep);
// Writeln('Examining >',T,'< at pos,',LastSep,' till pos ',Sep);