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/