unicodestring和rawbytestring相互转换

unicodestring和rawbytestring相互转换

function unicode2raw(v: UnicodeString): RawByteString;
begin
SetLength(Result, length(v) shl 1);
Move(PUnicodeString(v)^, PRawByteString(result)^, Length(Result));
end;

function raw2unicode(v: RawByteString): UnicodeString;
begin
var len: Integer := Length(v);
SetLength(Result, len shr 1);
Move(PRawByteString(v)^, PUnicodeString(Result)^, len);
end;