簡繁互轉功能

發文回覆瀏覽次數：4578

推到 Plurk!

推到 Facebook!

熾冰
一般會員

發表：29
回覆：21
積分：10
註冊：2004-01-12

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-11-18 16:05:20

IP:220.130.xxx.xxx 訂閱

Function GBCht2Chs(GBStr: String): AnsiString;
{?行GBK繁体??体}
Var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
Begin
pGBCHTChar := 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(pGBCHSChar);
//FreeMem(pGBCHTChar);
FreeMem(pGBCHSChar);
End;測試用:
GB碼 : 潠楛聆彸
Big5碼: 簡繁測試

系統時間：2024-11-21 16:52:01

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！