From e4aca9f6f9a3c110ae48526fdd52d79780ac5186 Mon Sep 17 00:00:00 2001 From: Ivan Sukin Date: Fri, 11 Nov 2016 22:14:06 +0300 Subject: [PATCH] ReadString and ReadLine from Files module now set the trailing 0X --- src/system/Files.Mod | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/system/Files.Mod b/src/system/Files.Mod index 7aeee5ac..a007f934 100644 --- a/src/system/Files.Mod +++ b/src/system/Files.Mod @@ -636,7 +636,8 @@ Especially Length would become fairly complex. PROCEDURE ReadString* (VAR R: Rider; VAR x: ARRAY OF CHAR); VAR i: INTEGER; ch: CHAR; BEGIN i := 0; - REPEAT Read(R, ch); x[i] := ch; INC(i) UNTIL ch = 0X + REPEAT Read(R, ch); x[i] := ch; INC(i) UNTIL ch = 0X; + x[i] := 0X; END ReadString; PROCEDURE ReadLine* (VAR R: Rider; VAR x: ARRAY OF CHAR); @@ -652,7 +653,8 @@ Especially Length would become fairly complex. x[i] := ch; INC(i); END; - UNTIL b + UNTIL b; + x[i] := 0X; END ReadLine; PROCEDURE ReadNum* (VAR R: Rider; VAR x: LONGINT);