BCB多语言版本软件的实现

在BCB中实现多语言设计的方法可能有多种多样，在此我通过一个实例讲解一下我个人的实现思路：

1、首先必须挖掘程序中所使用的到文字资源将其统一整理出来，再对应翻译成各种语言，我这里就以：中文简体，中文繁体，英语为例；建立语言资源文件：lang.ini 具体内容如下：


[set]


val=3




[chs]


title=程序重启测试(设计:彭学周)


topic=语言设置


option1=中文简体


option2=中文繁体


option3=英文


btn1=确 定


btn2=取 消




[cht]


title=程式重啟測試(設計:彭學周)


topic=語言設置


option1=中文簡體


option2=中文繁體


option3=英文


btn1=確 定


btn2=取 消




[eng]


title=Program reload test(By:Favory)


topic=Language Setting


option1=Chinese Simplified


option2=Chinese Traditional


option3=English


btn1=Confirm


btn2=Cancel

2：在程序中设置读取，根据选择的语言，读取对应的文本内容，对界面中的现实元素进行赋值，以此来改变语言显示；代码如下：


TForm1 *Form1;


bool g_bIsRunAgain = false;


int lval=1;


TIniFile *pIniFile;


//---------------------------------------------------------------------------


__fastcall TForm1::TForm1(TComponent* Owner)


: TForm(Owner)




...{


pIniFile=new TIniFile(ChangeFileExt(ExtractFilePath(Application->ExeName), "lang.ini"));


AnsiString lang="chs";


lval=pIniFile->ReadInteger("set","val",1);


switch (lval)




...{


case 1 :


rb1->Checked=true;


lang="chs";


break;


case 2 :


rb2->Checked=true;


lang="cht";


break;


case 3 :


rb3->Checked=true;


lang="eng";


break;


}


this->Caption=pIniFile->ReadString(lang,"title","程序重启测试");


grp1->Caption=pIniFile->ReadString(lang,"topic","语言设置");


rb1->Caption=pIniFile->ReadString(lang,"option1","中文简体");


rb2->Caption=pIniFile->ReadString(lang,"option2","中文繁体");


rb3->Caption=pIniFile->ReadString(lang,"option3","英文");


btn1->Caption=pIniFile->ReadString(lang,"btn1","确 定");


btn2->Caption=pIniFile->ReadString(lang,"btn2","取 消");


// delete pIniFile;


}


//---------------------------------------------------------------------------




void __fastcall TForm1::btn2Click(TObject *Sender)




...{


Close();


}


//---------------------------------------------------------------------------


void __fastcall TForm1::btn1Click(TObject *Sender)




...{


if(rb1->Checked) lval=1;


if(rb2->Checked) lval=2;


if(rb3->Checked) lval=3;


pIniFile->WriteInteger("set","val",lval);


g_bIsRunAgain = true;


Close();


}

3.、由于语言的加载放在初始化中进行的，所以切换语言后必须重新启动程序，为了让程序在点击确定改变语言按钮时关闭后自动启动来实现跟新语言的方法，所以必须修改Project1.cpp中的WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)函数，代码如下：


WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)




...{


try




...{


Application->Initialize();


Application->CreateForm(__classid(TForm1), &Form1);


Application->Run();


}


catch (Exception &exception)




...{


Application->ShowException(&exception);


}


catch (...)




...{


try




...{


throw Exception("");


}


catch (Exception &exception)




...{


Application->ShowException(&exception);


}


}


if(g_bIsRunAgain)




...{


AnsiString strPath;


STARTUPINFO StartInfo;


PROCESS_INFORMATION procStruct;


memset(&StartInfo, 0, sizeof(STARTUPINFO));


StartInfo.cb = sizeof(STARTUPINFO);


strPath = Application->ExeName;


if(!::CreateProcess(


(LPCTSTR) strPath.c_str(),


NULL,


NULL,


NULL,


FALSE,


NORMAL_PRIORITY_CLASS,


NULL,


NULL,


&StartInfo,


&procStruct))


return 0;


}


return 0;


}

4、运行效果：