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 以bytes为单位获取文件大小

Delphi 搜索字符串在流中的位置

Delphi firedac 获取 insert 记录的自增 id

Delphi 把pf8bit位图变换成pf24bit位图

Delphi webbrowser1去边框

Delphi获取系统默认的useragent的方法

Delphi dpr文件误删怎么办

Delphi richedit根据鼠标位置定位光标的方法

Delphi textfile utf8编码读写

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

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