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;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/13984273.html