Delphi ASC转换成unicode

本文整理自网络，侵删。

 
//ASC转换成unicode
function EncodeUniCode(Str:WideString):string; //字符串－>PDU
var
   i, len:Integer;
   cur: Integer;
begin
   Result := '';
   len := Length(Str);
   i := 1;
   while i <= len do
   begin
      cur := ord(Str[i]);
      Result := Result+IntToHex(Cur,4);
      inc(i);
   end;
end;
 

相关阅读 >>

Delphi 金额转大写

Delphi 10.4 新变化：定制拖管记录（结构）类型

Delphi 结构体的使用、tbitmap和tmemorystream的转换

Delphi idhttp超时重定向

Delphi 获取系统内存状态

Delphi datasnap清除僵死连接

Delphi xe5 android 调用手机震动（通过jobject测试是否支持震动）

Delphi 中相对路径与绝对路径函数说明

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi 怎样判断spinedit在微调时值是增加还是减少了

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ASC转换成unicode