如何用API 執行Big5轉GB

發文回覆瀏覽次數：1503

推到 Plurk!

推到 Facebook!

答題得分者是：smallfox

熾冰
一般會員

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

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-11-17 14:23:29

IP:220.130.xxx.xxx 訂閱

如何用API 執行Big5轉GB

因為公司要求在程式內做繁轉簡功能,
所以不可使用其他工具~

編輯記錄

熾冰重新編輯於 2011-11-16 23:23:48，註解無‧

smallfox
高階會員

發表：2
回覆：113
積分：128
註冊：2003-02-19

發送簡訊給我

#2 引用回覆回覆

發表時間：2011-11-24 00:58:07

IP:211.74.xxx.xxx 訂閱

{ 簡繁體字轉換 }
function Trans_Simplified_Traditional(Text: String; Mode: Integer = 1): String;
var s1, s2: PWideChar; n: Integer;
begin
if (Mode<>1) then n:=Windows.LCMAP_TRADITIONAL_CHINESE
else n:=Windows.LCMAP_SIMPLIFIED_CHINESE;
//
s1:=PWideChar(Text);
s2:=PWideChar(StringOfChar(' ', Length(Text)));
try
Windows.LCMapString(Windows.LOCALE_SYSTEM_DEFAULT,
n, s1, Length(s1), s2, Length(s2));
finally
Result:=Trim(s2);
end;
end;

適用於 Delphi 2009 以上版本....

系統時間：2024-04-20 18:11:16

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

本站聲明

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