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

* Patch from maillist for read() on a file with only a few numerical digits

Browse Source 
in them and no crlf

git-svn-id: trunk@15 -
This commit is contained in:
marco 2005-05-18 08:57:17 +00:00
parent f949a53da8
commit 9d33cf03b1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/text.inc
View File

@ -755,6 +755,7 @@ End;
Function NextChar(var f:Text;var s:string):Boolean; Function NextChar(var f:Text;var s:string):Boolean;
begin begin
NextChar:=false;
if (TextRec(f).BufPos<TextRec(f).BufEnd) then if (TextRec(f).BufPos<TextRec(f).BufEnd) then
if not (CtrlZMarksEOF) or (TextRec(f).Bufptr^[TextRec(f).BufPos]<>#26) then if not (CtrlZMarksEOF) or (TextRec(f).Bufptr^[TextRec(f).BufPos]<>#26) then
begin begin
@ -767,9 +768,7 @@ begin
If TextRec(f).BufPos>=TextRec(f).BufEnd Then If TextRec(f).BufPos>=TextRec(f).BufEnd Then
FileFunc(TextRec(f).InOutFunc)(TextRec(f)); FileFunc(TextRec(f).InOutFunc)(TextRec(f));
NextChar:=true; NextChar:=true;
end end;
else
NextChar:=false;
end; end;