delphi xe2簡繁體轉換函數

function Cn2Big(CnStr: string): string; //简体中文转繁体中文
var
　Len: Integer;
begin
　Len := Length(CnStr);
　SetLength(Result, Len);
　LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(CnStr), Len, PChar(Result), Len);
end;

function Big2Cn(BigStr: string): string; //繁体中文转简体中文
var
　Len: Integer;
begin
　Len := Length(BigStr);
　SetLength(Result, Len);
　LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(BigStr), Len, PChar(Result), Len);
end;

关键是LCMapString的第二个参数，不同的值可以做许多不同的功能，如按字节倒转、简繁转换、大小写转换等。函数原型如下：
int LCMapString( LCID, DWORD, LPCTSTR, int, LPTSTR, int);

轉貼至:http://redboy136.blog.163.com/blog/static/107188432201110695449442/