mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 06:29:38 +02:00
Fixed bug in split when final word has length 1 (bug ID 29798)
git-svn-id: trunk@33209 -
This commit is contained in:
parent
0f301b4c57
commit
839a0445a4
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user