Convertir caracteres de chino simplificado a tradicional

Existen 2 juegos de caracteres chinos: el simplificado y el tradicional.

Desde la revolución cultural china, los caracteres tradicionales se han simplificado (ya que son más fáciles de dibujar y de leer). El chino simplificado es el que se usa actualmente, mientras que el tradicional se utiliza en Hong-Kong y Taïwan.

En nuestro caso el truco está en utilizar la función LCMapStringW (unit Windows)

El código sería el siguiente:

function SimplificadoATradicional(Str:Widestring):Widestring;
begin
SetLength(Result,Length(Str));
LCMapStringW($404,LCMAP_TRADITIONAL_CHINESE,
 PWideChar(Str),Length(Str),
 PWideChar(Result),Length(Result));
Result:=Result;
end;

function TradicionalASimplificado(Str:Widestring):Widestring;
begin
SetLength(Result,Length(Str));
LCMapStringW($804,LCMAP_SIMPLIFIED_CHINESE,
 PWideChar(Str),Length(Str),
 PWideChar(Result),Length(Result));
end;