如何将字符转换为unicode编码

Question

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

Answer 1

其实你只要把你的字符串转化为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; 

Answer 2

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;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 3

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;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————