將現有的程式改寫成多國語言版本
並且使用BCB開發環境來實作之
去翻閱了幾本介紹BCB的書籍發現，這部份的著墨不多
是不是因為我太弱了，所以連最基本的功能都不會
後來還是使用咕狗大法來找解決方案
以下是參考網址
http://delphi.ktop.com.tw/board.php?tid=34209
我想，這方面的資料之前已有很多人發表了，
■【發表】以INI檔實現多國語言的小範例
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19769
■ 如何寫多國語言程式
http://delphi.ktop.com.tw/topic.php?topic_id=18402
■【Delphi】【分享】利用INI文件實現界面無閃爍多語言切換
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23151
但可能是因為都是 Delphi 的版本，還是有一些網友來信問到實作上的問題，此篇是使用 BCB 來開發的，其實，有很多種方法可以處理所有元件的語言介面，本篇只是其中的一種方式。如果您不想下載，可以直接參考以下的 code
//---------------------------------------------------------------------------
// 參考資料：
// 【Delphi】【分享】利用INI文件實現界面無閃爍多語言切換
// http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23151
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//----------------------------------------------------------------------------//
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//----------------------------------------------------------------------------//
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::FormCreate(TObject *Sender)
{
LangINI=new TIniFile(ExtractFilePath(Application->ExeName)+"Language.ini");
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete LangINI;
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::UpdateInterface(AnsiString Language)
{
Form1->Caption=LangINI->ReadString(Language,"Form1.Caption","Multi-Language Testing");
for(int i=0;iComponentCount;i++) // 找出所有 Form1 內的元件
{
if(String(Form1->Components[i]->ClassName())=="TLabel") // 如果是 TLabel
{
((TLabel *)Form1->Components[i])->Caption=
LangINI->ReadString(Language,Form1->Components[i]->Name+".Caption","TLabel Caption");
}
if(String(Form1->Components[i]->ClassName())=="TButton") // 如果是 TButton
{
((TButton *)Form1->Components[i])->Caption=
LangINI->ReadString(Language,Form1->Components[i]->Name+".Caption","TButton Caption");
((TButton *)Form1->Components[i])->Hint=
LangINI->ReadString(Language,Form1->Components[i]->Name+".Hint","TButton Hint");
}
}
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::Button1Click(TObject *Sender)
{
UpdateInterface("ChineseBIG5");
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::Button2Click(TObject *Sender)
{
UpdateInterface("ChineseGB");
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::Button3Click(TObject *Sender)
{
UpdateInterface("English");
}
//----------------------------------------------------------------------------//
Language.ini
[ChineseBIG5]
Form1.Caption=多國語言系統測試 BCB Version
Label1.Caption=這是測試字串一
Label2.Caption=這是測試字串二
Button1.Caption=繁體中文
Button1.Hint=切換到繁體中文系統
Button2.Caption=Chinese GB
Button2.Hint=Switch to Chinese GB
Button3.Caption=English
Button3.Hint=Switch to English
FormCaption=Multi-Language Testing
[ChineseGB]
Form1.Caption=嗣弊逄晟炵苀聆彸 BCB Version
Label1.Caption=涴岆聆彸趼睫揹珨
Label2.Caption=涴岆聆彸趼睫揹媼
Button1.Caption=Chinese BIG5
Button1.Hint=Switch to Chinese BIG5
Button2.Caption=潠极笢恅
Button2.Hint=ピ遙善潠极笢恅炵苀
Button3.Caption=English
Button3.Hint=Switch to English
[English]
Form1.Caption=Multi-Language Testing BCB Version
Label1.Caption=This is a test string 1
Label2.Caption=This is a test string 2
Button1.Caption=Chinese BIG5
Button1.Hint=Switch to Chinese BIG5
Button2.Caption=Chinese GB
Button2.Hint=Switch to Chinese GB
Button3.Caption=English
Button3.Hint=Switch to English
如果您是使用簡體中文系統，請再啟動後，按下 [Chinese GB] 的按鈕，就可以看到簡體中文，如果是繁體中文系統，則按下 [Chinese BIG5] 的按鈕，如果都不是，則請按下 [English] 按鈕。
在繁體中文系統，看 Chinese GB 自然會是亂碼，同理，在簡體中文系統，看 Chinese BIG5 也會是亂碼。
範例連結：http://delphi.ktop.com.tw/download.php?download=upload%5C34209_MultiLanguage.zip
這個程式範例寫得很清楚，可以將Form裡面所有的元件找出來，
並且透過我們撰寫的ini檔來選擇翻譯的語言。
我在實作的時候，遇到一個困難
就是 TTabbedNotebook的Tag的名稱不知道該如何修改
解決方法是 TabbedNotebook1->Pages->Strings[0]=你要修改的字串
有時候盲點當下真的不知道該如何解決
睡一覺起來又有不同的觀點了！！
謝謝網路上豐富的資源，讓我能夠解決這次的案子
0 意見:
張貼留言