Delphi编程--将字符转换为unicode编码

通过数据线连接手机发送短信息中文，需要将中文转换成unicode编码
iptables 例如
你好
的unicode编码为
044F60597D
原理和如何编程实现转换？

---------------------------------------------------------------

其实你只要把你的字符串转化为widestring类型就可以了.
Type Maximum length Memory required Used for
ShortString 255 characters 2 to 256 bytes backward compatibility
AnsiString ~2^31 characters 4 bytes to 2GB 8-bit (ANSI) characters
WideString ~2^30 characters 4 bytes to 2GB Unicode characters;

---------------------------------------------------------------

var
WS: WideString;
WC: WideChar;
Code: Word;
begin
WS := '你好';
WC := WS[1];
Move(WC, Code, SizeOf(WC));
ShowMessage(IntToHex(Code, 2));
WC := WS[2];
Move(WC, Code, SizeOf(WC));
ShowMessage(IntToHex(Code, 2));
end;

var
I: Integer;
WS: WideString;
Code: Word;
Codes: String;
begin
WS := '你好';
Codes := '0x';
for I := 1 to Length(WS) do
begin
Move(WS[I], Code, SizeOf(Code));
Codes := Codes + IntToHex(Code, 2);
end;
ShowMessage(Codes);
end;