* Fix bug ID #36234: unicodedatastering must be of type unicodestring

git-svn-id: trunk@43357 -

rtl/objpas/classes/classesh.inc

@@ -1199,7 +1199,7 @@ type
     FEncoding: TEncoding;
     FOwnsEncoding : Boolean;
     function GetDataString: string;
-    function GetUnicodeDataString: String;
+    function GetUnicodeDataString: UnicodeString;
   protected
   public
     constructor Create(const ABytes: TBytes); override; overload;
@@ -1219,7 +1219,7 @@ type
     function ReadString(Count: Longint): string;
     procedure WriteString(const AString: string);
     property DataString: string read GetDataString;
-    Property UnicodeDataString : String Read GetUnicodeDataString;
+    Property UnicodeDataString : UnicodeString Read GetUnicodeDataString;
     Property OwnsEncoding : Boolean Read FOwnsEncoding;
     Property Encoding : TEncoding Read FEncoding;
   end;

rtl/objpas/classes/streams.inc

@@ -1522,7 +1522,7 @@ begin
   Result:=FEncoding.GetAnsiString(Bytes,0,Size);
 end;
 
-function TStringStream.GetUnicodeDataString: String;
+function TStringStream.GetUnicodeDataString: UnicodeString;
 begin
   Result:=FEncoding.GetString(Bytes, 0, Size);
 end;