摘要:
function BIG5ToGB2312(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 CHTLCMapSt 阅读全文