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;