unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
button1: tbutton;
procedure button1click(sender: tobject);
end;
varform1: tform1;
implementation
function gb2big(gb: string): string;
varlen: integer;
begin
len := length(gb);
setlength(result, len);
lcmapstring(getuserdefaultlcid, lcmap_traditional_chinese, pchar(gb), len, pchar(result), len);
end;
function big2gb(big: string): string;
varlen: integer;
begin len := length(big); setlength(result, len); lcmapstring(getuserdefaultlcid, lcmap_simplified_chinese, pchar(big), len, pchar(result), len); end;
procedure tform1.button1click(sender: tobject);
begin
showmessage(gb2big('漢字繁簡轉換'));
showmessage(big2gb('漢字繁簡轉換'));
end;
end.
簡體中文轉換正體中文
簡體中文 從老於那裡得到一段 string str1 小調三丁 劍羽斬 string str2 string str3 str2 microsoft.visualbasic.strings.strconv str1,microsoft.visualbasic.vbstrconv.traditiona...
批量處理簡體中文轉正體中文
工作需要把簡體中文轉換為正體中文，替換的內容分散在幾百個lua檔案中。手工替換太沒效率。因此開發了這個工具。程式語言 golang，系統環境 centos 7.0,假定你已經安裝好了golang 開發環境。使用說明 1 安裝opencc yum install cmake yum install d...
xoops模組開發手冊（正體中文轉簡體中文）
2 在區塊中寫程式 假設您實在厭煩龐雜的xoops2的模組架構，但您會寫些php程式，那麼，這個方法相當適合您，您只要在區塊中寫下您的php程式即可，而無須理會那些模組規則，下面我們用乙個簡單的例子來說明。請進入管理區，然後到區塊顯示安排中，在下方有新增區塊的介面，您只要在 內容 的地方填入php程...