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 twebbrowser控件禁用鼠标右键

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

Delphi判断字符串是否包含限制以外的字符 否则置空

Delphi 标头控件（theadercontrol）中的显示复选框

Delphi 禁止alt+f4关闭

Delphi 实现打开文件定位

Delphi 文字的高度与宽度: canvas.textextent

Delphi 跳出for循环

Delphi-改进获取文件md5 hash方法

Delphi 使用 inputbox、inputquery 的启发

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

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