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

* fixed readln(ansistring)

Browse Source
This commit is contained in:
peter 1999-01-28 19:38:19 +00:00
parent 28e8e7951d
commit 96ac1855a8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/text.inc
View File

@ -923,7 +923,7 @@ Begin
exit;
end;
{ Read until #10 is found }
sidx:=pchar(@s);
sidx:=pchar(s);
spos:=0;
repeat
If f.BufPos>=f.BufEnd Then
@ -1198,7 +1198,10 @@ end;
{
$Log$
Revision 1.37 1998-12-15 22:43:06 peter
Revision 1.38 1999-01-28 19:38:19 peter
* fixed readln(ansistring)
Revision 1.37 1998/12/15 22:43:06 peter
* removed temp symbols
Revision 1.36 1998/12/11 18:07:39 peter