Browse Source

* Merging revisions r43357 from trunk:
------------------------------------------------------------------------
r43357 | michael | 2019-11-02 12:51:28 +0100 (Sat, 02 Nov 2019) | 1 line

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

git-svn-id: branches/fixes_3_2@43735 -

michael 5 years ago
parent
commit
0e58449360
2 changed files with 3 additions and 3 deletions
  1. 2 2
      rtl/objpas/classes/classesh.inc
  2. 1 1
      rtl/objpas/classes/streams.inc

+ 2 - 2
rtl/objpas/classes/classesh.inc

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

+ 1 - 1
rtl/objpas/classes/streams.inc

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