下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
function GBCht2Chs(GBStr: string): AnsiString;function GBChs2Cht(GBStr: string): AnsiString;implementationfunction GBCht2Chs(GBStr: string): AnsiString;{进行GBK繁体转简体} varLen: integer; pGBCHTChar: PChar; pGBCHSChar: PChar; beginpGBCHTChar := PChar(GBStr); Len := MultiByteToWideChar(936, 0, pGBCHTChar, -1, nil, 0);GetMem(pGBCHSChar, Len * 2 + 1); ZeroMemory(pGBCHSChar, Len * 2 + 1); //GB CHS -> GB CHT LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2); result := string(
飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
