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 xe android 程序切换到后台及从后台切换到前台实现

Delphi runasadmin 运行程序并申请管理员权限

Delphi 屏幕拷贝程序的源代码

Delphi根据网络链接截取域名

Delphi 官方使用并行编程库介绍

Delphi 线程同步(线程安全)

Delphi中判断tcp端口是否被占用

Delphi adoconnection1 连接excel 读取数据

Delphi inifile to xml

Delphi 创建快捷方式的单元文件

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

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