Changed BytesToRawString

`BytesToRawString()` does not work correctly on macOS.

For arbitary binary content, the function `StringOf()` will fail since it cannot form an Unicode string (I am not sure why it works for Windows).

This implementation of BytesToRawString() will work for both Windows and macOS.

Author: danielmarschall

Source/DECUtil.pas

@@ -216,9 +216,6 @@ procedure ProtectString(var Source: WideString); overload;
 ///   RawByteString with the same length as Source and all bytes copied over.
 ///   No conversion of any sort is being applied to the bytes.
 /// </returns>
-/// <remarks>
-///   This is a wrapper for StringOf of Sysutils
-/// </remarks>
 function BytesToRawString(const Source: TBytes): RawByteString; inline;
 
 /// <summary>
@@ -652,7 +649,9 @@ procedure ProtectString(var Source: WideString); overload;
 
 function BytesToRawString(const Source: TBytes): RawByteString;
 begin
-  result := RawByteString(StringOf(Source));
+  SetLength(Result, Length(Source));
+  if Length(Source) > 0 then
+    Move(Source[low(Source)], Result[low(Result)], Length(Source)); // Copy bytes directly
 end;
 
 function RawStringToBytes(const RawString: RawByteString): TBytes;