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

git-svn-id: trunk@33209 -
This commit is contained in:
michael 2016-03-09 19:56:57 +00:00
parent 0f301b4c57
commit 839a0445a4

View File

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