Delphi中利用INI文件實現界面無閃爍多語言切換(2)

同樣的方法編輯一個名為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;

在Form建立的事件中添加代碼，將目錄下所有的語言文件名加入選擇列表框中。

procedure TForm1.FormCreate(Sender: TObject);
begin
　 ComboBox1.Items.AddStrings(SearchLanguagePack);
end;

程序的重點在如何切換語言，在ComboBox1的OnChange事件中進行切換操作。

這裡我寫了SetActiveLanguage過程用於實現這一操作。

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型則當作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中的所有組件，根據他們的類別和組件名動態的從ini配置文件中讀出應該顯示的語言文字。用遍歷組件的方法比一個一個寫出具體的組件維護起來要方便很多，代碼的適應性也更強。

其中M1為一個字符串變量，這樣提示消息也能切換，比如在Button1的Click事件中

procedure TForm1.Button1Click(Sender: TObject);
begin
　 ShowMessage(M1);
end;

就可以根據不同的語言給出不同的提示文字。