ASCII 及 UNICODE 轉換器的 C++ Builder 源碼

時常有網友查問 UNICODE 的問題, 而 ASCII 及 UNICODE 確是可用程式轉換.
日前, 我用 C++ Builder 寫了一個 ASCII 及 UNICODE 互換的小程式.
各位可以直接下載 convert.zip. 又或者自已編寫.
 convert.zip 原始下載:http://wongtaisin.uhome.net/other/convert.zip
             本站下載: http://delphi.ktop.com.tw/loadfile.php?TOPICID=14552635&CC=325465
以下是編寫的過程    1. 打開 C++ Builder, 新建一個專案. 加上三個物件 - 讀寫 ASCII 的 Edit1, 讀寫 UNICODE 16進制數碼的 Edit2, 及開始工作的 Button1.    2. 雙按 Button1, 以下是 Button1Click 的源碼. 請留意 // 是註譯句
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
wchar_t szWchar[255], w_text2[255];
char text1[255], text2[255], text3[5], text4[5];
int a,b,c,d,e;
int wa,wb,wc;    StrPCopy(text1,Edit1->Text);
b=strlen(text1);
// 如果 Edit1 有內容
if(b>0){
// 計算中英文及數字的個數
c=0; d=0;
for(a=0;aText=text2;
 }}
// 如果 Edit1 沒有內容, 就讀入 Edit2  
else{
StrPCopy(text1,Edit2->Text);
b=strlen(text1);
// 把16進制數碼轉換成十進制數碼, 及計算字數
wc=0; e=0;
for(a=0;a47&&c<58) wb=c-48;
  else wb=16;
  if(wb<16){
    text4[wc++]=wb;
    if(wc==4){
        // 轉換成數值, 高位元在後, 低位元在前
        wa=text4[0]*16 + text4[1] + text4[2]*16*16*16 + text4[3]*16*16;
        // widechar 有如整數
        w_text2[e++]=wa;
        wc=0;
        }}
    } 
// 轉換成 ASCII 字串  
WideCharToMultiByte(CP_ACP,0,w_text2,-1,text1,254,0,0);
  b=strlen(text1);
  c=0; d=0;
  // 讀取中英文及數字的個數
  for(a=0;aText=text1;
}
//---------------------------------------------------------------------------
黃權燊編寫於2002年10月5日, 中國香港特別行政區

/*生活是一種藝術,用心生活才能享受生活*/