取汉字的机内码、UniCode码

阿杰

1. //机内码 -> 汉字
   
2. Function MacCode2Chinese(AiUniCode : Integer) : String;
   
3. Var
   
4. ch, cl : Integer;
   
5. Begin
   
6.   ch := AiUniCode Div 256;
   
7.   cl := AiUniCode Mod 256;
   
8.   Result := Chr(ch) + Chr(cl);
   
9. end;
   
10. 
    
11. //汉字 -> 机内码
    
12. Function Chinese2MacCode(AiChinese : String) : Integer;
    
13. Var
    
14. ch, cl : Integer;
    
15. Begin
    
16.   ch := Ord(AiChinese[1]);
    
17.   cl := Ord(AiChinese[2]);
    
18.   Result := (ch shl 8) + cl;
    
19. end;
    
20. 
    
21. //UniCode -> 汉字
    
22. Function UniCode2Chinese(AiUniCode : Integer) : String;
    
23. Var
    
24. ch, cl : String[3];
    
25. s : String;
    
26. Begin
    
27.   s := IntToHex(AiUniCode, 2);
    
28.   cl := '$' + Copy(s, 1, 2);
    
29.   ch := '$' + Copy(s, 3, 2);
    
30.   s := Chr(StrToInt(ch)) + Chr(StrToInt(cl)) + #0;
    
31.   Result := WideCharToString(pWideChar(s));
    
32. end;
    
33. 
    
34. //汉字 -> UniCode
    
35. Function Chinese2UniCode(AiChinese : String) : Integer;
    
36. Var
    
37. ch, cl : String[2];
    
38. a : array [1..2] of char;
    
39. Begin
    
40.   StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);
    
41.   ch := IntToHex(Integer(a[2]), 2);
    
42.   cl := IntToHex(Integer(a[1]), 2);
    
43.   Result := StrToInt('$' + ch + cl);
    
44. end;

复制代码

xmlpull

{:soso_e142:}虽然看不懂 但是支持一下.!!!

upring

汉字内码 学习一下