From 23225bea4460d42b8c67fd46c1ed01b04c4d272e Mon Sep 17 00:00:00 2001 From: peter Date: Wed, 26 Aug 1998 15:33:28 +0000 Subject: [PATCH] * reset bufpos,bufend in opentext like tp7 --- rtl/inc/text.inc | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc index 9951ee00e7..fab59a7542 100644 --- a/rtl/inc/text.inc +++ b/rtl/inc/text.inc @@ -135,6 +135,8 @@ Begin End; End; TextRec(t).mode:=word(mode); + TextRec(t).bufpos:=0; + TextRec(t).bufend:=0; FileFunc(TextRec(t).OpenFunc)(TextRec(t)) End; @@ -1200,7 +1202,10 @@ end; { $Log$ - Revision 1.22 1998-08-26 11:23:25 pierre + Revision 1.23 1998-08-26 15:33:28 peter + * reset bufpos,bufend in opentext like tp7 + + Revision 1.22 1998/08/26 11:23:25 pierre * close did not reset the bufpos and bufend fields led to problems when using the same file several times