瀏覽代碼

* Fix bug ID #36147

git-svn-id: trunk@43511 -
michael 5 年之前
父節點
當前提交
269cb2d46a
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/fcl-base/src/streamio.pp

+ 2 - 0
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;