Browse Source

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 5 years ago
parent
commit
461a648f67
1 changed files with 1 additions and 1 deletions
  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;