程序運(yùn)行時，我們查找當(dāng)前目錄下所有的語言配置文件（*.ini）， 為了達(dá)到這個目的， 我編寫了如下的函數(shù)搜索目錄下所有的語言配置文件的文件名， 然后將文件名去掉ini擴(kuò)展名保存返回： 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;
在Form建立的事件中添加代碼，將目錄下所有的語言文件名加入選擇列表框中。 PRocedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.AddStrings(SearchLanguagePack); end;
程序的重點(diǎn)在如何切換語言，在ComboBox1的OnChange事件中進(jìn)行切換操作。 這里我寫了SetActiveLanguage過程用于實(shí)現(xiàn)這一操作。 procedure TForm1.ComboBox1Change(Sender: TObject); begin SetActiveLanguage(ComboBox1.Text); end; 其中SetActiveLanguage代碼如下： procedure TForm1.SetActiveLanguage(LanguageName:string); const Translations='Translations'; Messages='Messages'; var frmComponent:TComponent; i:Integer; begin with TInifile.Create(ExtractFilePath(ParamStr(0))+LanguageName+'.ini') do begin for i:=0 to ComponentCount-1 do { 遍歷Form組件 } begin frmComponent:=Components[i]; if frmComponent is TLabel then { 如果組件為TLabel型則當(dāng)作TLabel處理，以下同 } begin (frmComponent as TLabel).Caption:= ReadString(Translations,frmComponent.Name +'.Caption',(frmComponent as TLabel).Caption); end; if frmComponent is TCheckBox then begin (frmComponent as TCheckBox).Caption:= ReadString(Translations,frmComponent.Name +'.Caption',(frmComponent as TCheckBox).Caption); end; if frmComponent is TButton then begin (frmComponent as TButton).Caption:= ReadString(Translations,frmComponent.Name +'.Caption',(frmComponent as TButton).Caption); (frmComponent as TButton).Hint:= ReadString(Translations,frmComponent.Name +'.Hint',(frmComponent as TButton).Hint); end; if frmComponent is TMenuItem then begin (frmComponent as TMenuItem).Caption:= ReadString(Translations,frmComponent.Name +'.Caption',(frmComponent as TMenuItem).Caption); end; end; M1:=ReadString(Messages,'M1',M1); end; end; 在這個過程中，我們遍歷了Form中的所有組件， 根據(jù)他們的類別和組件名動態(tài)的從ini配置文件中讀出應(yīng)該顯示的語言文字。 用遍歷組件的方法比一個一個寫出具體的組件維護(hù)起來要方便很多，代碼的適應(yīng)性也更強(qiáng)。 其中M1為一個字符串變量，這樣提示消息也能切換，比如在Button1的Click事件中 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(M1); end; 就可以根據(jù)不同的語言給出不同的提示文字。
