* Restore signature of loadfromstream/loadfromfile, make default delphi compatible

git-svn-id: trunk@37965 -

rtl/objpas/classes/classesh.inc

@@ -690,9 +690,11 @@ type
     procedure Insert(Index: Integer; const S: string); virtual; abstract;
     procedure InsertObject(Index: Integer; const S: string;
       AObject: TObject);
-    procedure LoadFromFile(const FileName: string; IgnoreEncoding : Boolean = True); overload; virtual;
+    procedure LoadFromFile(const FileName: string); overload;
+    procedure LoadFromFile(const FileName: string; IgnoreEncoding : Boolean);
     procedure LoadFromFile(const FileName: string; AEncoding: TEncoding); overload; virtual;
-    procedure LoadFromStream(Stream: TStream; IgnoreEncoding : Boolean = True); overload; virtual;
+    procedure LoadFromStream(Stream: TStream); overload; virtual;
+    procedure LoadFromStream(Stream: TStream; IgnoreEncoding : Boolean); overload;
     procedure LoadFromStream(Stream: TStream; AEncoding: TEncoding); overload; virtual;
     procedure Move(CurIndex, NewIndex: Integer); virtual;
     procedure SaveToFile(const FileName: string); overload; virtual;

rtl/objpas/classes/stringl.inc

@@ -975,7 +975,13 @@ end;
 
 
 
-Procedure TStrings.LoadFromFile(const FileName: string; IgnoreEncoding : Boolean = True);
+Procedure TStrings.LoadFromFile(const FileName: string);
+
+begin
+  LoadFromFile(FileName,False)
+end;
+
+Procedure TStrings.LoadFromFile(const FileName: string; IgnoreEncoding : Boolean);
 Var
         TheStream : TFileStream;
 begin
@@ -1001,7 +1007,13 @@ begin
   end;
 end;
 
-Procedure TStrings.LoadFromStream(Stream: TStream; IgnoreEncoding : Boolean = True);
+Procedure TStrings.LoadFromStream(Stream: TStream);
+
+begin
+  LoadFromStream(Stream,False);
+end;
+
+Procedure TStrings.LoadFromStream(Stream: TStream; IgnoreEncoding : Boolean);
 {
    Borlands method is no good, since a pipe for
    instance doesn't have a size.