* Made string in stringstream constructor optional

git-svn-id: trunk@32326 -

rtl/objpas/classes/classesh.inc

@@ -1001,7 +1001,7 @@ type
     function GetPosition: Int64; Override;
     procedure SetSize(NewSize: Longint); override;
   public
-    constructor Create(const AString: string);
+    constructor Create(const AString: string = '');
     function Read(var Buffer; Count: Longint): Longint; override;
     function ReadString(Count: Longint): string;
     function Seek(Offset: Longint; Origin: Word): Longint; override;

rtl/objpas/classes/streams.inc

@@ -814,7 +814,7 @@ begin
 end;
 
 
-constructor TStringStream.Create(const AString: string);
+constructor TStringStream.Create(const AString: string = '');
 
 begin
   Inherited create;