在我们的产品需要适用于多种语言的用户时,多语言切换功能就非常重要了,今天又一朋友咨询多语言切换功能,下面我分享多年实践总结出来的经验及代码,希望对你有帮助,我这里是使用INI文件来存取,你也可以用XML或其他等,使用只时需要在基类Form(用于继承)的FORMSHOW中另一句代码 SwitchLanguage(self ,FLangID);// FLangID为你要切换的语言代码.
这样就实现多语言功能。
下面贴图为在程序中直接处理多语言内容界面. 即在Form的系统菜单添加一项"多语言资料"打开本Form多语言资料界面.
Procedure SwitchLanguage(FM: TForm; FLangID: String);
Var
frmComponent: TComponent;
fInifile: TIniFile;
i, j: Integer;
Str: String;
//读取控件的多语言内容,如果不存在就写默认值到INI文件, 这样你就可以直接在INI文件中修改多语言内容,这里默认为3种语言(英文,繁体中文,简体中文)
Function GetIniValue(fSection, fKey, fDefaultValue: String): String;
Var
s: String;
Begin
If Not fInifile.ValueExists(fSection, fKey) Then