如何得到汉字的unicode

时间:2010-01-26 14:50:18  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:vars:string;i:integer;j k:string[2];a:array [1..1000] of char;begin  s:='';  StringToWideChar(Ansi @(a[1]) 500);  i:=1;  while ((a[i]<>#0) or (a[i+1]<>#0)) do begin    j:=IntToHex(Integer(a[i]) 2);    k...
  正文:

汉字到Unicode的转换:


function AnsiToUnicode(Ansi: string):string;
var
s:string;
i:integer;
j k:string[2];
a:array [1..1000] of char;
begin
  s:='';
  StringToWideChar(Ansi @(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+k+j;
    i:=i+2;
  end;
  Result:=s;
end;

附上反编码的函数


function ReadHex(AString:string):integer;
begin
  Result:=StrToInt('$'+AString)
end;
function UnicodeToAnsi(Unicode: string):string;
var
s:string;
i:integer;
j k:string[2];
begin
  i:=1;
  s:='';
  while ij:=Copy(Unicode i+2 2);
  k:=Copy(Unicode i 2);
  i:=i+4;
  s:=s+Char(ReadHex(j))+Char(ReadHex(k));
end;
if s<>'' then
s:=WideCharToString(PWideChar(s+#0#0#0#0))
else
s:='';
Result:=s;
end;


如何得到汉字的unicode》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-26/12432.html


关键字:

关于《如何得到汉字的unicode》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td