越来越多的程序使用了多国语言切换，虽然Delphi自带多语言包的添加和配置，
　　但是那种方法在切换语言时界面会出现闪烁，而且实现起来很麻烦，这里我介绍给大家的是利用INI文件来读取界面的语种文字，
　　用这种方法，不但简单易行，而且在切换的时候不会出现界面的闪烁。
　　我们从一个例子出发，看看怎么实现语言的切换。首先建立一个新工程。放置如下组件：（如图）

　　MainMenu1: TMainMenu;
　　File1: TMenuItem;
　　Exit1: TMenuItem;
　　Label1: TLabel;
　　Button1: TButton;
　　CheckBox1: TCheckBox;
　　CheckBox2: TCheckBox;
　　Button2: TButton;
　　Label2: TLabel;
　　ComboBox1: TComboBox;
　　Label3: TLabel;
　　由于要读取Ini文件，所以在USES中加入声明IniFiles;
　　然后将Button1和Button2的ShowHint属性设置为True;
　　其中我们用ComboBox1来显示可供选择的语言和用来选择语言。
　　我们在程序的目录下编辑如下的Chinese GB.Ini文件：
　　;///////////////////////////////////////////////////////////////////
　　;
　　;　翻译的一些规则:
　　;　翻译前,拷贝 Chinese GB.ini 改名到 yourlanguage.ini
　　;　仅仅翻译符号'='后的文字
　　;
　　[Translations]
　　;
　　Label1.Caption =文字1
　　Label2.Caption =文字2
　　Label3.Caption =语言
　　Button1.Caption =按钮1
　　Button2.Caption =按钮2
　　Button1.Hint =按钮1_提示
　　Button2.Hint =按钮2_提示
　　CheckBox1.Caption =复选框1
　　CheckBox2.Caption =复选框2
　　File1.Caption =文件
　　Exit1.Caption =退出
　　;
　　[Messages]
　　;
　　M1 =信息框测试
　　;
　　;//////////////////////////////////////////////////////////////////
　　同样的方法编辑一个名为English.ini的文件，将“=”左边的文字改为英文。
　　例如：Label1.Caption =Label1

　　程序运行时，我们查找当前目录下所有的语言配置文件（*.ini），
　　为了达到这个目的，
　　我编写了如下的函数搜索目录下所有的语言配置文件的文件名，
　　然后将文件名去掉ini扩展名保存返回：
　　function TForm1.SearchLanguagePack:TStrings;
　　var
　　ResultStrings:TStrings;
　　DosError:integer;
　　SearchRec:TsearchRec;
　　begin
　　ResultStrings:=TStringList.Create;
　　DosError:=FindFirst(ExtractFilePath(ParamStr(0))+'*.ini', faAnyFile, SearchRec);
　　while DosError=0 do
　　begin
　　{ 返回的文件名并去掉末尾的.ini字符 }
　　ResultStrings.Add(ChangeFileExt(SearchRec.Name,''));
　　DosError:=FindNext(SearchRec);
　　end;
　　FindClose(SearchRec);
　　Result:=ResultStrings;
　　end;