XML做配置文件实现多国语言切换

//--------------------------------------------------------------------------- #include <fmx.h> #pragma hdrstop #include "Unit1.h" #include "Unit2.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.fmx" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void MultiLanguage(int k) { AnsiString pathc = GetCurrentDir(); String Path = pathc + "\\5.xml"; _di_IXMLDocument document ; _di_IXMLNode rootnode,langnode,formnode; document = interface_cast<Xmlintf::IXMLDocument>(new TXMLDocument(NULL)); document->LoadFromFile(Path); // document->Active = true; TForm *form[2] = {Form1,Form2}; rootnode = document->ChildNodes->FindNode("root"); langnode = rootnode->ChildNodes->Get(k); for(int i = 0; i < langnode->ChildNodes->Count;i++) { formnode = langnode->ChildNodes->Get(i); int n= form[i]->ComponentCount; TComponent *tComp; form[i]->Caption = formnode->GetAttribute("Caption"); for(int j = 0; j < n; j++){ tComp = form[i]->Components[j]; if(form[i]->Components[j]->ClassNameIs("TButton")){ dynamic_cast<TButton*>(tComp)->Text = formnode->ChildNodes->FindNode(dynamic_cast<TButton*>(tComp)->Name)->GetAttribute("Text"); }else if(form[i]->Components[j]->ClassNameIs("TMenuItem")){ dynamic_cast<TMenuItem*>(tComp)->Text = formnode->ChildNodes->FindNode(dynamic_cast<TMenuItem*>(tComp)->Name)->GetAttribute("Text"); }else if(form[i]->Components[j]->ClassNameIs("TLabel")){ dynamic_cast<TLabel*>(tComp)->Text = formnode->ChildNodes->FindNode(dynamic_cast<TLabel*>(tComp)->Name)->GetAttribute("Text"); }else if(form[i]->Components[j]->ClassNameIs("TGroupBox")){ dynamic_cast<TGroupBox*>(tComp)->Text = formnode->ChildNodes->FindNode(dynamic_cast<TGroupBox*>(tComp)->Name)->GetAttribute("Text"); }else if(form[i]->Components[j]->ClassNameIs("TListBoxItem")) { //这里需要判断节点是否存在！ if(formnode->ChildNodes->FindNode(dynamic_cast<TListBoxItem*>(tComp)->Name)!= NULL){ dynamic_cast<TListBoxItem*>(tComp)->Text = formnode->ChildNodes->FindNode(dynamic_cast<TListBoxItem*>(tComp)->Name)->GetAttribute("Text"); } }else{ } } } } void __fastcall TForm1::mi_enClick(TObject *Sender) { MultiLanguage(0); mi_cn->IsChecked = false; mi_en->IsChecked = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::mi_cnClick(TObject *Sender) { MultiLanguage(1); mi_cn->IsChecked = true; mi_en->IsChecked = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { Form2->Show(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { MultiLanguage(0); } //---------------------------------------------------------------------------