TStrings.SaveToStream(TStream): use FEncoding as the default for IgnoreEncoding=False so that loaded files are correctly resaved

git-svn-id: trunk@43948 -

rtl/objpas/classes/stringl.inc

@@ -1547,7 +1547,7 @@ Var
 begin
   if not IgnoreEncoding then
     begin
-    SaveToStream(Stream,Nil);
+    SaveToStream(Stream,FEncoding);
     Exit;
     end;
   NL:=GetLineBreakCharLBS;