怎么开发多语言版本的程序？

Question

用INI文件定义资源好了。

Answer 1

如果是大型程序就使用Delphi自带的，如果是小程序，不妨将文字写在INI文件中，然后读入程序即可……举例：
unit global;interfaceuses Forms,IniFiles,SysUtils,StdCtrls,Menus,ExtCtrls;function PutAllComponentsToFile(orgForm:TForm;FileName:String):Boolean;implementationfunction PutAllComponentsToFile(orgForm:TForm;FileName:String):Boolean;
var
  i,j:Integer;
  OrgIniFile:TIniFile;
begin
  Result := False;
  
  OrgIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName+'.Ini');
  try
    for i := 0 to orgForm.ComponentCount-1 do begin
    //Standard
      if orgForm.Components[i] is TLabel then begin
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TLabel).Name+'.Caption',(orgForm.Components[i] as TLabel).Caption);
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TLabel).Name+'.Hint',(orgForm.Components[i] as TLabel).Hint);
      end;
      if orgForm.Components[i] is TComboBox then begin
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TComboBox).Name+'.Hint',(orgForm.Components[i] as TComboBox).Hint);
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TComboBox).Name+'.Text',(orgForm.Components[i] as TComboBox).Text);
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TComboBox).Name+'.ItemCount',IntToStr((orgForm.Components[i] as TComboBox).Items.Count));
        for j := 0 to (orgForm.Components[i] as TComboBox).Items.Count-1 do begin
          OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TComboBox).Name+'.ItemText'+IntToStr(j),(orgForm.Components[i] as TComboBox).Items.Strings[j]);
        end;
      end;
      //......
    end;
  finally
    OrgIniFile.Free;
    ReSult := True;
  end;
  
end;end.

Answer 2

什么叫“使用Delphi自带的”，怎么用，能说说吗？

Answer 3

Project _>Languages->Add 研究了一下，还是不知道！

Answer 4

程序中的所用文字用resourstring关键字来定义，根据用户所确定的语言版本再来进行加载。

Answer 5

程序中的所用文字用resourstring关键字来定义，根据用户所确定的语言版本再来进行加载。

Answer 6

到此站点上下载一个使用INI切换语言的示例。 http://keyzsoft.yeah.net