Explorar o código

merge r19075 from cpstrnew branch by paul:
rtl: change UTF8Decode, UTF8Encode, AnsiToUTF8, UTF8ToAnsi to use RawByteString as arguments/result for compatibility with the old code and also with delphi

git-svn-id: trunk@19128 -

paul %!s(int64=14) %!d(string=hai) anos
pai
achega
631c545423
Modificáronse 4 ficheiros con 12 adicións e 12 borrados
  1. 5 5
      rtl/inc/ustringh.inc
  2. 5 5
      rtl/inc/ustrings.inc
  3. 1 1
      rtl/inc/wstringh.inc
  4. 1 1
      rtl/inc/wstrings.inc

+ 5 - 5
rtl/inc/ustringh.inc

@@ -110,11 +110,11 @@ function UnicodeToUtf8(Dest: PChar; Source: PUnicodeChar; MaxBytes: SizeInt): Si
 function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PUnicodeChar; SourceChars: SizeUInt): SizeUInt;
 function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PUnicodeChar; SourceChars: SizeUInt): SizeUInt;
 function Utf8ToUnicode(Dest: PUnicodeChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 function Utf8ToUnicode(Dest: PUnicodeChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 function Utf8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt;
 function Utf8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt;
-function UTF8Encode(const s : RawByteString) : UTF8String; inline;
-function UTF8Encode(const s : UnicodeString) : UTF8String;
-function UTF8Decode(const s : UTF8String): UnicodeString;
-function AnsiToUtf8(const s : RawByteString): UTF8String;{$ifdef SYSTEMINLINE}inline;{$endif}
-function Utf8ToAnsi(const s : UTF8String) : RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
+function UTF8Encode(const s : RawByteString) : RawByteString; inline;
+function UTF8Encode(const s : UnicodeString) : RawByteString;
+function UTF8Decode(const s : RawByteString): UnicodeString;
+function AnsiToUtf8(const s : RawByteString): RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
+function Utf8ToAnsi(const s : RawByteString) : RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
 function UnicodeStringToUCS4String(const s : UnicodeString) : UCS4String;
 function UnicodeStringToUCS4String(const s : UnicodeString) : UCS4String;
 function UCS4StringToUnicodeString(const s : UCS4String) : UnicodeString;
 function UCS4StringToUnicodeString(const s : UCS4String) : UnicodeString;
 function WideStringToUCS4String(const s : WideString) : UCS4String;
 function WideStringToUCS4String(const s : WideString) : UCS4String;

+ 5 - 5
rtl/inc/ustrings.inc

@@ -2386,13 +2386,13 @@ function UTF8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar
   end;
   end;
 
 
 
 
-function UTF8Encode(const s : RawByteString) : UTF8String; inline;
+function UTF8Encode(const s : RawByteString) : RawByteString; inline;
   begin
   begin
     Result:=UTF8Encode(UnicodeString(s));
     Result:=UTF8Encode(UnicodeString(s));
   end;
   end;
 
 
 
 
-function UTF8Encode(const s : UnicodeString) : UTF8String;
+function UTF8Encode(const s : UnicodeString) : RawByteString;
   var
   var
     i : SizeInt;
     i : SizeInt;
     hs : UTF8String;
     hs : UTF8String;
@@ -2410,7 +2410,7 @@ function UTF8Encode(const s : UnicodeString) : UTF8String;
   end;
   end;
 
 
 
 
-function UTF8Decode(const s : UTF8String): UnicodeString;
+function UTF8Decode(const s : RawByteString): UnicodeString;
   var
   var
     i : SizeInt;
     i : SizeInt;
     hs : UnicodeString;
     hs : UnicodeString;
@@ -2428,13 +2428,13 @@ function UTF8Decode(const s : UTF8String): UnicodeString;
   end;
   end;
 
 
 
 
-function AnsiToUtf8(const s : RawByteString): UTF8String;{$ifdef SYSTEMINLINE}inline;{$endif}
+function AnsiToUtf8(const s : RawByteString): RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
   begin
     Result:=Utf8Encode(s);
     Result:=Utf8Encode(s);
   end;
   end;
 
 
 
 
-function Utf8ToAnsi(const s : UTF8String) : RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
+function Utf8ToAnsi(const s : RawByteString) : RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
   begin
     Result:=Utf8Decode(s);
     Result:=Utf8Decode(s);
   end;
   end;

+ 1 - 1
rtl/inc/wstringh.inc

@@ -41,7 +41,7 @@ function UnicodeToUtf8(Dest: PChar; Source: PWideChar; MaxBytes: SizeInt): SizeI
 function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PWideChar; SourceChars: SizeUInt): SizeUInt;
 function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PWideChar; SourceChars: SizeUInt): SizeUInt;
 function Utf8ToUnicode(Dest: PWideChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 function Utf8ToUnicode(Dest: PWideChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 function Utf8ToUnicode(Dest: PWideChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt;
 function Utf8ToUnicode(Dest: PWideChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt;
-function UTF8Encode(const s : WideString) : UTF8String;
+function UTF8Encode(const s : WideString) : RawByteString;
 
 
 {$ifdef MSWINDOWS}
 {$ifdef MSWINDOWS}
 const
 const

+ 1 - 1
rtl/inc/wstrings.inc

@@ -1656,7 +1656,7 @@ function UTF8ToUnicode(Dest: PWideChar; MaxDestChars: SizeUInt; Source: PChar; S
   end;
   end;
 
 
 
 
-function UTF8Encode(const s : WideString) : UTF8String;
+function UTF8Encode(const s : WideString) : RawByteString;
   var
   var
     i : SizeInt;
     i : SizeInt;
     hs : UTF8String;
     hs : UTF8String;