Procházet zdrojové kódy

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 před 5 roky
rodič
revize
461a648f67
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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;