Delphi程序实现多语言功能

在我们的产品需要适用于多种语言的用户时，多语言切换功能就非常重要了，今天又一朋友咨询多语言切换功能,下面我分享多年实践总结出来的经验及代码,希望对你有帮助,我这里是使用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