多国语言支持,自动读写文字资源INI

<<多国语言支持说明>> zheng_hw5@126.com ----------17:36 2009.03.12 当前程序应用到Borland C++ Builder 6.5测试(BCB6.5) 对窗体设置语言文件,自动读写.DFM中的文字资源到INI文件中, 之后再对INI文件统一修改. 主要设置以下几项属性: AnsiString: Caption , AnsiString: Text, AnsiString: DisplayLabel, AnsiString: Hint,(当属性ShowHint为真时) TStrings: Items// 下拉框,列表框的 源程序在些公开,随便用,自己根据需要随便删改. -------------------------------------------------------------------- config.ini文件说明 [Language] ; 当设置这空或Default时,指不使用语言文件,只使用EXE中的自带文字 Project1.exe.Language=Project1_Chs.ini -------------------------------------------------------------------- 用法 1.包含并头文件#include "MultiLanguage.h" 2.项目文件中Application->CreateForm()之后Application->Run();之前 加入根据config.ini文件中配置,自动设置语言 如: Application->CreateForm(__classid(TForm1), &Form1); Application->CreateForm(__classid(TForm2), &Form2); .................. .................. AnsiString strLanguageFile = ML_GetLanguageFile(); if (!strLanguageFile.IsEmpty()) { ML_AutoSetLanguage((TObject*)(Form1)); ML_AutoSetLanguage((TObject*)(Form2)); ML_AutoSetLanguage((TObject*)(Form3)); //....... } Application->Run(); 3.当对CPP零碎的文字处理时,使用ML_ReadIniKey([段], "名称", "默认值" ) 如: ShowMessage(ML_ReadIniKey("Message", "Msg1.Text", "信息提示." )); 或 Application->MessageBox(ML_ReadIniKey("Message", "Msg1.Text", "信息提示." ).c_str(), ML_ReadIniKey("Message", "Msg1.Caption", "看看" ).c_str(), MB_OK); 4.程序中切换资文件,使用ML_SetLanguage(窗体,资源文件INI) 如: ML_SetLanguage(this, ExtractFilePath(Application->ExeName) + "Project1_En.ini"); -------------------------------------------------------------------- //--------------------------------------------------------------------------- // 接口函数: // 返回当前语言文件 ,如果没有设置过,就从config.ini中 [Language] exe.Language读出 extern AnsiString ML_GetLanguageFile(void); // 对窗体设置语言文件 // 主要设置以下几项: Caption , Text, DisplayLabel,Hint,Items // AnsiString : Caption , Text, TDBGrid:DisplayLabel, Hint (when ShowHint == true) // TStrings : Items extern void ML_SetLanguage(TComponent * pForm, AnsiString strLanguageFile); // 为赖人准备的,就从config.ini读出语言文件,并设置到程序里 extern AnsiString ML_AutoSetLanguage(TObject *Sender); //--------------------------------------------------------------------------- // 读指定的strIniFile文件名中读文字资源 extern AnsiString ML_ReadIniKey( AnsiString strIniFile, AnsiString strSection , AnsiString strKey , AnsiString strDefault ); // 从指定的TIniFile对象中读文字资源,如果找不找值,就把默认值写入INI文件, // 相当于生成一个语言模板,在外面可以修改 extern AnsiString ML_ReadIniKey( TIniFile * IniFile, AnsiString strSection , AnsiString strKey , AnsiString strDefault ); // 从当前设置的s_strLanguageFile语言文件里读文字资源, // 这个函数的目的在分散的码中使用,不用关于当前是使用什么语言文件 extern AnsiString ML_ReadIniKey(AnsiString strSection, AnsiString strKey , AnsiString strDefault ); //---------------------------------------------------------------- // 用到的核心函数: 1.GetPropInfo(): Returns the property information record for the object being edited. virtual Typinfo::PPropInfo __fastcall GetPropInfo(void) = 0; Description Call GetPropInfo to access the property information record that describes the property being edited, including its access functions. If more than one object is being edited, GetPropInfo returns the property information record for a representative component. 2.GetPropInfo(Typinfo::PPropInfo info); 3.SetStrProp(TComponent * pComponent, Typinfo::PPropInfo info, strValue); //---------------------------------------------------------------- // 核心代码: for (int i = 0 ; i < pForm->ComponentCount; i++) { pComponent = pForm->Components[i]; if (pComponent->Name.IsEmpty()) { // 对TSringGrid 中有很多子对象,列在窗体Components中,但其是名称为空. continue; } // AnsiString Caption PropInfo = GetPropInfo(pComponent, "Caption"); if (PropInfo) { strDefault = GetStrProp(pComponent, PropInfo); strValue = ML_ReadIniKey(IniFile , strSection, pComponent->Name + ".Caption", strDefault ); SetStrProp(pComponent, PropInfo, strValue); } ............ }