Delphi中简体中文与繁体中文的转换函数

简体中文与繁体中文的转换函数

1. function GB2Big(GB: string ): string;
   
2. var
   
3. Len: Integer;
   
4. begin
   
5. Len := Length(GB);
   
6. SetLength(Result, Len);
   
7. LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Len);
   
8. end;
   
9. 
   
10. function Big2GB(Big: string ): string;
    
11. var
    
12. Len: Integer;
    
13. begin
    
14. Len := Length(Big);
    
15. SetLength(Result, Len);
    
16. LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(Big), Len, PChar(Result), Len);
    
17. end;

复制代码

汉字与 Unicode 转换函数
{感谢 robin（xuebin418@163.com）提供}

1. //转换
   
2. 
   
3. function Str_Gb2UniCode(text: string): String;
   
4. var
   
5.   i,len: Integer;
   
6.   cur: Integer;
   
7.   t: String;
   
8.   ws: WideString;
   
9. begin
   
10.   Result := '';
    
11.   ws := text;
    
12.   len := Length(ws);
    
13.   i := 1;
    
14.   while i <= len do
    
15.   begin
    
16.     cur := Ord(ws);
    
17.     FmtStr(t,'%4.4X',[cur]);
    
18.     Result := Result + t;
    
19.     Inc(i);
    
20.   end;
    
21. end;
    
22. 
    
23. //恢复
    
24. function Unicode_str(text: string):string;
    
25. var
    
26.   i,len: Integer;
    
27.   ws: WideString;
    
28. begin
    
29.   ws := '';
    
30.   i := 1;
    
31.   len := Length(text);
    
32.   while i < len do
    
33.   begin
    
34.     ws := ws + Widechar(StrToInt('$' + Copy(text,i,4)));
    
35.     i := i+4;
    
36.   end;
    
37.   Result := ws;
    
38. end;
    
39. 
    
40. //测试
    
41. procedure TForm1.Button1Click(Sender: TObject);
    
42. begin
    
43.   ShowMessage(Str_Gb2UniCode('万一'));  //4E074E00
    
44.   ShowMessage(Unicode_str('4E074E00'));  //万一
    
45. end;

复制代码