实现简体中文转繁体中文

主要是使用 LCMapString 函数下面是delphi 例子你研究一下吧

{简体转繁体[字符串]}
function   GBTOBIG5(PSource   :string)   :string;
var
    SourceLength   :integer;
    TargetStr         :string;
begin
    SourceLength   :=   Length(PSource)   +   1;
    SetLength(TargetStr,   SourceLength);
    LCMapString(GB_LCID,   LCMAP_TRADITIONAL_CHINESE,   PChar(PSource),   SourceLength,   PChar(TargetStr),   SourceLength);
    result               :=   TargetStr;
end;