@@@@如何完成UNICODE码到区位码的转换(给出提示20分，给出函数50分，给出源程序200分)

Question

我现在有一个难题，就是要把我输入到一个文本的字符和数字和UNICODE码互相转换就是说，如果我给出   我是程序员    那么我现在需要的是他的 UNICODE码。然后，有人提供给我   一个UNICODE码 ，  我现在需要把他转化成字符或者是数字。

Answer 1

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 i<Length(Unicode)+1 do begin 
    j:=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; 根据你的需要进行改动就可以了。 

Answer 2

汉字 区位码 国标码 机内码
荞   6081    5C71   DCF1
茯   6082    5C72   DCF2
荏   6083    5C73   DCF3
荇   6084    5C74   DCF4是这样的吗？
procedure THanzima.ShowQu(var i:Integer;Memo1:TMemo);
var j:Integer;
begin
  for j:=1 to 94 do
    begin
      Memo1.Lines.Add(Char(160+i)+Char(160+j)+'   '+IntToStr(i*100+j)+'    '+//
        Format('%x',[32+i])+Format('%x',[32+j])+'   '+//
        Format('%x',[160+i])+Format('%x',[160+j]));
    end;
end;还有，等我找个地址

Answer 3

汉字 区位码 国标码 机内码
你   3667    4463   C4E3
好   2635    3A43   BAC3
别人可能加密了的吧？

Answer 4

有查区内码、国标码和机内码
http://www.csdn.net/cnshare/soft/13/13371.shtm
（含源代码）

Answer 5

4F60597D  你好 这个就是他们的Unicode编码呀！
4F60 你
579D 好

Answer 6

我看了DEJOY的程序，说实在的，我不太明白我如何把 你好 转化成 UNICODE编码
还有把UNICODE编码转化成相应的汉字，请指教。 这个是我问问题的关键，得到答案，马上给分。给思路我自己编写也行。我是现在对这个方面不熟悉。所以不知道如何入手。请多指教