Bladeren bron

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 jaren geleden
bovenliggende
commit
461a648f67
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  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;