想把字符串 "数据软件" 变成 "#25968#25454#37319#36719",这样的函数有么?

Question

想把字符串 "数据软件" 变成 "#25968#25454#37319#36719",这样的函数有么?

Answer 1

function AnsiToUnicode(Ansi: string):string;
var
  i:integer;
  j,k,s:string;
  a:array [0..1000] of char;
begin
  result:='';
  StringToWideChar(Ansi,@(a[0]),500);
  i:=0;
  while ((a[i]<>#0) or (a[i+1]<>#0)) do
     begin
       j:=IntToHex(Integer(a[i]),2);
       k:=IntToHex(Integer(a[i+1]),2);
       result:=result+'#'+IntToStr(StrToInt('$'+(k+j)));
       i:=i+2;
     end;
end; ShowMessage(AnsiToUnicode('数据软件'));