* 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

@@ -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;