delphi Ansi字符串转Unicode编码

本文整理自网络，侵删。

 
function TForm1.AnsiToUnicode(Str: ansistring): string;
var
  s: ansistring;
  i:integer;
  j,k:string[2];
  a:array [1..1000] of  ansichar;
begin
  s:='';
  StringToWideChar(Str,@(a[1]),500);
  i:=1;
  while ((a[i]<>#0) or (a[i+1]<>#0)) do
  begin
    j:=IntToHex(Integer(a[i]),2);
    k:=IntToHex(Integer(a[i+1]),2);
    s:=s+'\u'+k+j;
    i:=i+2;
  end;
  Result:=s;
end;

――――――――――――――――

原文链接：https://blog.csdn.net/cc001100/article/details/81015182
 

相关阅读 >>

Delphi二值图像投影算法

Delphi 获取一个文件夹下的所有文件

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi idhttpserver接收http get请求解码问题

Delphi 存储过程与函数的区别

Delphi ios取设备唯一值

Delphi驱动开发研究第一篇--实现原理

Delphi rtf文件转txt函数

Delphi tstringlist 用法详解

Delphi android windows ios通用获取程序版本

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

转载请注明出处：木庄网络博客 » delphi Ansi字符串转Unicode编码