From d27126b64ce53c01b0a4199dc91b37c2eb51b032 Mon Sep 17 00:00:00 2001 From: michael Date: Sun, 17 Nov 2019 22:28:21 +0000 Subject: [PATCH] * Merging revisions 43511 from trunk: ------------------------------------------------------------------------ r43511 | michael | 2019-11-17 23:27:28 +0100 (Sun, 17 Nov 2019) | 1 line * Fix bug ID #36147 ------------------------------------------------------------------------ git-svn-id: branches/fixes_3_2@43512 - --- packages/fcl-base/src/streamio.pp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/packages/fcl-base/src/streamio.pp b/packages/fcl-base/src/streamio.pp index 78268a2307..b79826356f 100644 --- a/packages/fcl-base/src/streamio.pp +++ b/packages/fcl-base/src/streamio.pp @@ -130,6 +130,7 @@ begin end; with TTextRec(F) do begin + OpenFunc:=@StreamOpen; CloseFunc:=@StreamClose; Case DefaultTextLineBreakStyle Of @@ -143,6 +144,7 @@ begin BufPtr:=@Buffer; Name[0]:=#0; end; + SetTextCodePage(F,CP_ACP); end;