浏览代码

TStrings: default options:
* remove soWriteBOM for FPC backwards compatibility
* add soPreserveBOM so that a loaded file is correctly resaved

git-svn-id: trunk@43947 -

ondrej 6 年之前
父节点
当前提交
461a648f67
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/classes/stringl.inc

+ 1 - 1
rtl/objpas/classes/stringl.inc

@@ -1024,7 +1024,7 @@ begin
   inherited Create;
   FDefaultEncoding:=TEncoding.Default;
   FEncoding:=nil;
-  FOptions := [soWriteBOM,soTrailingLineBreak,soUseLocale];
+  FOptions := [soTrailingLineBreak,soUseLocale,soPreserveBOM];
   FAlwaysQuote:=False;
 end;