2. 程式人生 > >Delphi漢字簡繁體轉換程式碼（分為D7和D2010版本）

Delphi漢字簡繁體轉換程式碼（分為D7和D2010版本）

阿新 • • 發佈：2018-12-20

//delphi 7 Delphi漢字簡繁體轉換程式碼
unit ChineseCharactersConvert;
 interface
 uses
   Classes, Windows;
 type
   TGBBIG5Convert = class(TObject)
   public
     class function BIG5ToGB(BIG5Str : String): AnsiString;
     class function GBToBIG5(GBStr : String): AnsiString;
     class function GBChs2Cht(GBStr: String): AnsiString;
     class function GBCht2Chs(GBStr: String): AnsiString;
 end;
 
implementation
 
class function TGBBIG5Convert.BIG5ToGB(BIG5Str : String): AnsiString;
 var
   Len: Integer;
   pBIG5Char: PChar;
   pGBCHSChar: PChar;
   pGBCHTChar: PChar;
   pUniCodeChar: PWideChar;
 begin
   //String -> PChar
   pBIG5Char := PChar(BIG5Str);
   Len := MultiByteToWideChar(950,0,pBIG5Char,-1,nil,0);
   GetMem(pUniCodeChar,Len*2);
   ZeroMemory(pUniCodeChar,Len*2);
   //Big5 -> UniCode
   MultiByteToWideChar(950,0,pBIG5Char,-1,pUniCodeChar,Len);
   Len := WideCharToMultiByte(936,0,pUniCodeChar,-1,nil,0,nil,nil);
   GetMem(pGBCHTChar,Len*2);
   GetMem(pGBCHSChar,Len*2);
   ZeroMemory(pGBCHTChar,Len*2);
   ZeroMemory(pGBCHSChar,Len*2);
   //UniCode->GB CHT
   WideCharToMultiByte(936,0,pUniCodeChar,-1,pGBCHTChar,Len,nil,nil);
   //GB CHT -> GB CHS
   LCMapString($804,LCMAP_SIMPLIFIED_CHINESE,pGBCHTChar,-1,pGBCHSChar,Len);
   Result := String(pGBCHSChar);
   FreeMem(pGBCHTChar);
   FreeMem(pGBCHSChar);
   FreeMem(pUniCodeChar);
 end;
 {進行GBK簡體轉繁體}
 class function TGBBIG5Convert.GBChs2Cht(GBStr: String): AnsiString;
 Var
   Len: integer;
   pGBCHTChar: PChar;
   pGBCHSChar: PChar;
 Begin
   pGBCHSChar := PChar(GBStr);
   Len := MultiByteToWideChar(936, 0, pGBCHSChar, -1, Nil, 0);
   GetMem(pGBCHTChar, Len * 2 + 1);
   ZeroMemory(pGBCHTChar, Len * 2 + 1);
   LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1, pGBCHTChar, Len * 2);
   result := String(pGBCHTChar);
   FreeMem(pGBCHTChar);
 end;
 {進行GBK繁體轉簡體}
 class function TGBBIG5Convert.GBCht2Chs(GBStr: String): AnsiString;
 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);
   LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2);
   result := String(pGBCHSChar);
   FreeMem(pGBCHSChar);
 end;
 class function TGBBIG5Convert.GBToBIG5(GBStr : String): AnsiString;
 var
   Len: Integer;
   pGBCHTChar: PChar;
   pGBCHSChar: PChar;
   pUniCodeChar: PWideChar;
   pBIG5Char: PChar;
 begin
   pGBCHSChar := PChar(GBStr);
   Len := MultiByteToWideChar(936,0,pGBCHSChar,-1,nil,0);
   GetMem(pGBCHTChar,Len*2+1);
   ZeroMemory(pGBCHTChar,Len*2+1);
   //GB CHS -> GB CHT
   LCMapString($804,LCMAP_TRADITIONAL_CHINESE,pGBCHSChar,-1,pGBCHTChar,Len*2);
   GetMem(pUniCodeChar,Len*2);
   ZeroMemory(pUniCodeChar,Len*2);
   //GB CHT -> UniCode
   MultiByteToWideChar(936,0,pGBCHTChar,-1,pUniCodeChar,Len*2);
   Len := WideCharToMultiByte(950,0,pUniCodeChar,-1,nil,0,nil,nil);
   GetMem(pBIG5Char,Len);
   ZeroMemory(pBIG5Char,Len);
   //UniCode -> Big5
   WideCharToMultiByte(950,0,pUniCodeChar,-1,pBIG5Char,Len,nil,nil);
   Result := String(pBIG5Char);
   FreeMem(pBIG5Char);
   FreeMem(pGBCHTChar);
   FreeMem(pUniCodeChar);
 end;
 
end.

 

//delphi 2010 Delphi漢字簡繁體轉換程式碼
unit ChineseCharactersConvert;
 interface
 uses
   Classes, Windows;
 type
   TGBBIG5Convert = class(TObject)
   public
     class function BIG5ToGB(BIG5Str : String): AnsiString;
     class function GBToBIG5(GBStr : String): AnsiString;
     class function GBChs2Cht(GBStr: String): AnsiString;
     class function GBCht2Chs(GBStr: String): AnsiString;
 end;
 
implementation
 
class function TGBBIG5Convert.BIG5ToGB(BIG5Str : String): AnsiString;
 var
   Len: Integer;
   pBIG5Char: PChar;
   pGBCHSChar: PChar;
   pGBCHTChar: PChar;
   pUniCodeChar: PWideChar;
 begin
   //String -> PChar
   pBIG5Char := PChar(BIG5Str);
   Len := MultiByteToWideChar(950,0,pansichar(pBIG5Char),-1,nil,0);
   GetMem(pUniCodeChar,Len*2);
   ZeroMemory(pUniCodeChar,Len*2);
   //Big5 -> UniCode
   MultiByteToWideChar(950,0,pansichar(pBIG5Char),-1,pUniCodeChar,Len);
   Len := WideCharToMultiByte(936,0,pUniCodeChar,-1,nil,0,nil,nil);
   GetMem(pGBCHTChar,Len*2);
   GetMem(pGBCHSChar,Len*2);
   ZeroMemory(pGBCHTChar,Len*2);
   ZeroMemory(pGBCHSChar,Len*2);
   //UniCode->GB CHT
   WideCharToMultiByte(936,0,pUniCodeChar,-1,pansichar(pGBCHTChar),Len,nil,nil);
   //GB CHT -> GB CHS
   LCMapString($804,LCMAP_SIMPLIFIED_CHINESE,pGBCHTChar,-1,pGBCHSChar,Len);
   Result := String(pGBCHSChar);
   FreeMem(pGBCHTChar);
   FreeMem(pGBCHSChar);
   FreeMem(pUniCodeChar);
 end;
 {進行GBK簡體轉繁體}
 class function TGBBIG5Convert.GBChs2Cht(GBStr: String): AnsiString;
 Var
   Len: integer;
   pGBCHTChar: PChar;
   pGBCHSChar: PChar;
 Begin
   pGBCHSChar := PChar(GBStr);
   Len := MultiByteToWideChar(936, 0, pansichar(pGBCHSChar), -1, Nil, 0);
   GetMem(pGBCHTChar, Len * 2 + 1);
   ZeroMemory(pGBCHTChar, Len * 2 + 1);
   LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1, pGBCHTChar, Len * 2);
   result := String(pGBCHTChar);
   FreeMem(pGBCHTChar);
 end;
 {進行GBK繁體轉簡體}
 class function TGBBIG5Convert.GBCht2Chs(GBStr: String): AnsiString;
 Var
   Len: integer;
   pGBCHTChar: PChar;
   pGBCHSChar: PChar;
 Begin
   pGBCHTChar := PChar(GBStr);
   Len := MultiByteToWideChar(936, 0, pansichar(pGBCHTChar), -1, Nil, 0);
   GetMem(pGBCHSChar, Len * 2 + 1);
   ZeroMemory(pGBCHSChar, Len * 2 + 1);
   LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2);
   result := String(pGBCHSChar);
   FreeMem(pGBCHSChar);
 end;
 class function TGBBIG5Convert.GBToBIG5(GBStr : String): AnsiString;
 var
   Len: Integer;
   pGBCHTChar: PChar;
   pGBCHSChar: PChar;
   pUniCodeChar: PWideChar;
   pBIG5Char: PChar;
 begin
   pGBCHSChar := PChar(GBStr);
   Len := MultiByteToWideChar(936,0,pansichar(pGBCHSChar),-1,nil,0);
   GetMem(pGBCHTChar,Len*2+1);
   ZeroMemory(pGBCHTChar,Len*2+1);
   //GB CHS -> GB CHT
   LCMapString($804,LCMAP_TRADITIONAL_CHINESE,pGBCHSChar,-1,pGBCHTChar,Len*2);
   GetMem(pUniCodeChar,Len*2);
   ZeroMemory(pUniCodeChar,Len*2);
   //GB CHT -> UniCode
   MultiByteToWideChar(936,0,pansichar(pGBCHTChar),-1,pUniCodeChar,Len*2);
   Len := WideCharToMultiByte(950,0,pUniCodeChar,-1,nil,0,nil,nil);
   GetMem(pBIG5Char,Len);
   ZeroMemory(pBIG5Char,Len);
   //UniCode -> Big5
   WideCharToMultiByte(950,0,pUniCodeChar,-1,pansichar(pBIG5Char),Len,nil,nil);
   Result := String(pBIG5Char);
   FreeMem(pBIG5Char);
   FreeMem(pGBCHTChar);
   FreeMem(pUniCodeChar);
 end;
 
end. 
---------------------
作者：清風古韻
來源：CSDN
原文：https://blog.csdn.net/ttpage/article/details/9161703
版權宣告：本文為博主原創文章，轉載請附上博文連結！

相關推薦

Delphi漢字簡繁體轉換程式碼（分為D7和D2010版本）

//delphi 7 Delphi漢字簡繁體轉換程式碼unit ChineseCharactersConvert; interface uses   Classes, Windows; type  &

針對APP的後臺支付程式碼（微信和支付寶）

APP支付： 1.微信支付： 這是app支付時，一個完整的流程 1.1首先要去微信開放平臺註冊，並建立APP 1.2取得微信支付的許可權 1.3 商戶平臺有公眾號平臺和APP平臺兩種，一定要是APP平臺，可以在下面這個地方

phantomjs的使用+Java程式碼+依賴js（相容Linux和windows版本）

                1、  在使用phantomjs的時候需要下載phantomjs，網上有window版本和Linux版本。將phantomjs放在Linux上的指定位置之後（如下面的/home/tpl/phantomjs-1.9.7-linux-x86_64/處），2、  按照類似如下命令進行

生產者/消費者程式碼（使用notify和wait實現）

package cn.wzy.Lock; import java.util.Random; public class ConsumerAndProducer { static String[] food = new String[5]; static String take() th

簡繁體轉換

asi new wid bst 小寫 sof 字符串 strings 大寫 簡繁體轉換添加Microsoft.VisualBasic.dll引用 //簡轉繁 string str= Microsoft.VisualBasic.Stri

C#簡繁體轉換

html com 字符串 ... https ngs mar cli 右擊 /// <summary>/// 字符串簡體轉繁體/// </summary>/// <param name="strSimple"></param>

OpenCC for PHP 簡繁體轉換

GitHUB: https://github.com/NauxLiu/opencc4php 介紹 opencc4php 是 OpenCC 的PHP擴充套件，能很智慧的完成簡繁體轉換 轉換效果： 你幹什麼不干我事 => 你幹什麼不干我事 地區詞彙轉換

Java String字串和Unicode字元相互轉換程式碼（包括混有普通字元的Unicode）

package util; import java.util.regex.Matcher; import java.util.regex.Pattern; /** * * <p>Title: String 與 Unicode 互相轉換的工具類</p> * <p>

網頁簡繁體轉換

如果大家想看效果的話可以到。http://www.epweike.com 頂部有簡繁轉換。<A id=StranLink href="index.aspx" name=StranLink> <font color="#BF2600"&g

利用儲存過程進行簡繁體轉換

 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_GB2BIG]') and xtype in (N'FN', N'IF', N'TF')) drop function [dbo].[f_GB2BIG] GO

js操作符類型轉換大全（前端面試題之操作符）

ber 出錯 mas java http pos ted 一個數 類型轉換 操作符運算符，在前端的面試題目中經常出現，很多朋友在對其運算的時候經常出錯。說明對操作符運算還沒有完全理解，我前面的一篇文章，javascript雙等號引起的類型轉換，主要講解雙等號引起的類型轉換。

Delphi XE5 Android Dialogs 對話框（模擬做了一套）

系統 cto str and 圖片 download iss top mar 最近要在Android中使用對話框, 但發現無現成的, TOpenDialog等已經不支持移動設備，還好系統提供了一些文件目錄函數可用，於是簡單的模擬了一個，支持OpenDialog ,SaveD

發個無聊時寫的俄羅斯方塊（分為SDL和Qt兩個版本）

app deb fcm cnn 無聊 線程 dac tutorial spi 6213-ChineseZodiac(map) 多線程問題 【CF472G】【XSY2112】DesignTutorial壓位 大家都開始C++0x了,我也來湊熱鬧,今天的主題是《調侃rvalue

獲取碼值（各種類型字符（中、英）的ASCII）和進制轉換系統（包括正負數、小數）

獲取碼值 進制轉換 十進制小數負數轉二進制 java進制轉換 ASCII 獲取碼值和進制轉換程序由來： 本人發現計算機中的計算器木有將十進制小數轉二進制的功能，後來發現一些網站將十進制負數轉二進制只是求出整數的二進制，然後前面加“-”，這種表示不是真正的負數二進制。於是愛較真兒

獲取碼值和進制轉換系統（包括正負數、小數）

獲取碼值 進制轉換 十進制小數負數轉二進制 java進制轉換 ASCII 獲取碼值和進制轉換程序由來： 本人發現計算機中的計算器木有將十進制小數轉二進制的功能，後來發現一些網站將十進制負數轉二進制只是求出整數的二進制，然後前面加“-”，這種表示不是真正的負數二進制。於是愛較真兒

win10操作虛擬機器中hadoop IntelliJ IDEA直接執行程式碼（不需要打jar包）

IntelliJ IDEA 2018.2.3 (Ultimate Edition)+Maven VMware中CentOS6.5 Hadoop2.7.1 上課的時候老師使用的是Eclipse編譯器,使用了 eclipse-hadoop的外掛。可以直接在eclipse

Java配置多資料來源完整程式碼（SSM框架mysql +sqlserver資料庫）

記錄說明：專案使用Spring+SpringMVC+Mybatis框架，專案之前一直在使用mysql資料庫，後因專案對接需要，配置多資料來源增加sqlserver資料庫。 梳理一下相關的檔案： 1、pom.xml檔案（使用的是maven管理工具） 2、DataSource 介面註解

10.spring:常用的資料庫程式碼.....（不長使用瞭解即可）

測試程式碼： ApplicationContext ctx = new ClassPathXmlApplicationContext("JDBC.xml"); DataSource datasource = (DataSource)ctx.getBean("dataSource",DataSource.cla

unity3d 導彈跟蹤程式碼（含完整專案製作過程）

unity3d 遊戲專案中常常會遇到我方發出一個導彈，自動跟蹤敵方目標。 我在網上查詢了許多相關文章或程式碼，可是，大多不可用或者沒有例項。 今天正好要用到類似這樣的一個東東，特與大家一起分享一下，並附上完整例項，以供大家參考。 因為本人為的用的是unity3d

面試題：常見的多執行緒實戰手撕程式碼（順序列印數字、字母）

問題一：   一個多執行緒的問題，用三個執行緒，順序列印字母A-Z，輸出結果是1A 2B 3C 1D 2E…列印完畢最後輸出一個Ok。 程式碼一： public class forCharacter { private static char c = 'A';