----------------仅供学习参考----------------

关于DELPHI程序多语言支持的问题

写DELPHI程序，是如何实现繁体化的？是如何开发英文版的？是通过外挂语言包吗？

我完整地说一下我的问题：我写一个DELPHI程序，开发环境是是简体中文版本win xp系统+ Delphi 7的。现在想做一个繁体版本以及其他非简体中文版本的出来。此时遇到这几个问题：

1、在非简体中文系统中均出现乱码或界面文字错位。

2、而且语言包速度太慢了，每次启动要预读一下语言文件进行界面翻译，工程量大的时候明显感到启动速度下降了

3、因为工程量比较大，逐一设置“提示内容”及“界面内容”的语言包比较麻烦，所以不想用ini文件或dll资源库的语言包形式

请问各位DELPHI高手你们是怎么做的？有没有一劳永逸的方法？ 听说DELPHI内置的多国语言功能， 有没有用法帮助？

还有没有其他一些好用简单强大的Unicode语言包控件？

--------------------------------------------------------------------- Delphi的多语言是这么用的，但是添加多语言后编译连接速度很慢，有时候10来分钟。

可以把你的Delphi的窗体文件分给翻译来翻译，如果是Delphi7，需要先用Conver.exe来转换为文本格式。

1、Project-New Application 创建你的中文版软件。

2、Project-Language-Add 添加你的语言，比如美国英语（ENU）。或者File-New-Others-Dll Wizard

3、保存后生成多个文件夹。

4、Project-Build All

5、程序目录下生成和工程文件同名的语言文件：MyExe.ENU;MyExe.CHN，软件发布需要带这些文件。

6、把软件里面所有字符串定义为资源字符串。

resourcestring

C_AppTitle = 'xx管理系统';

C_Error = '错误';

C_Warning = '警告';

7、在软件中用如下代码切换语言：

const

//定义你得多语言：

ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;

CHINESE = (SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE; uses

ReInit;

...

if LoadNewResourceModule(ENGLISH) <> 0 then

begin

ReInitializeForms();

end;

更多请参考Delphi帮助，里面写得更清楚。

我以前也用INI文件做多语言，感觉挺好用，Delphi带得这个多语言感觉编译起来太慢，而且总需要Build半天。

利用INI文件实现界面无闪烁多语言切换 程序运行时，我们查找当前目录下所有的语言配置文件（*.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;

就可以根据不同的语言给出不同的提示文字。

好了，整个工程就做完了，你可以运行测试一下，是不是切换迅速而且无闪烁。

Delphi实现多语言界面

关键字：多语言界面，Delphi，国际化，本地化。

随着Internet在全球的普及，一个软件开发者，开发出来的产品可以随意发布到全球各个角落，然而与此同时，开发出来的产品也面临着一个新的问题：如 何实现各种不同的语言界面，甚至根据最终用户的操作系统的语言版本，自动更改语言界面？难道为每一个不同的语言编写一个不同的版本？不，完全没有必要。 Delphi 5.0作为一个优秀的快速RAD开发工具，可以很容易地实现国际化支持，因为Delphi 5.0内置了对多语言界面的支持。 一个程序，如果需要不同的语言版本，那么应该有一下几点需要注意的地方[]：

1. 必须允许你的程序代码能够处理好各种语言字符串，例如如果要中文化，必须能够处理双字节。

2. 你必须设计好你的程序界面，以便能够使你的程序界面元素有足够的空间显示语言文字信息。一般说来，在50个字节以内的英文单词所表达的意思，用其他的语言 来描述的话，长度要超过50字节，但中文是一个例外。特别对于几个字节的英文单词，其他的语言的长度几乎百分之百要超过英文的长度！因此，必须在控件中留 出足够的长度以便在更改语言之后，还能显示全部的语言文字信息。

3. 你必须翻译所有的资源。

本文将着重讨论如何用Delphi 5.0实现多语言的支持和切换，界面设计和上述要求不在本文讨论范围之内。

要 为程序添加语言支持，只要在Delphi主菜单项Project下面选择LanguagesàAdd…即可。点击之后出现语言向导，读者按照向导进行操作 即可。向导结束之后，会生成一个工程组文件(BPG)，最后出现Translation Manager，软件开发者可以在这里翻译所有语言的所有资源，包括字体、位置、文字等等。说明一下：你可以随时随地用Project下面的 Languages子菜单的功能来添加、删除、修改各种界面元素。

做完上述工作之后，我们现在就差切换语言的代码了。为了切换语言，大家 可以使用下面的一个单元[]，单元中提供了两个函数，用来更换语言界面元素，其中LoadNewResourceModule是用来修改文字信息等 等，ReinitializeForms用来重新刷新窗体和

控件以保证同步。

///文件名：MaltiLan.pas

unit MaltiLan;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms;

procedure ReinitializeForms;

function LoadNewResourceModule(Locale: LCID): Longint;

implementation

type

TAsInheritedReader = class(TReader)

Public

procedure ReadPrefix(var Flags: TFilerFlags; var AChildPos: Integer); Override; end;

procedure TAsInheritedReader.ReadPrefix(var Flags: TFilerFlags; var AChildPos: Integer); begin

inherited ReadPrefix(Flags, AChildPos);

Include(Flags, ffInherited);

end;

function SetResourceHInstance(NewInstance: Longint): Longint;

var

CurModule: PLibModule;

begin

CurModule := LibModuleList;

Result := 0;

while CurModule <> nil do

begin

if CurModule.Instance = HInstance then

begin

if CurModule.ResInstance <> CurModule.Instance then

FreeLibrary(CurModule.ResInstance);

CurModule.ResInstance := NewInstance;

Result := NewInstance;

Exit;

end;

CurModule := CurModule.Next;

end;

end;

function LoadNewResourceModule(Locale: LCID): Longint;

var

FileName: array[0..260] of char;

P: PChar;

LocaleName: array[0..4] of Char;

NewInst: Longint;

begin

GetModuleFileName(HInstance, FileName, SizeOf(FileName));

GetLocaleInfo(Locale, LOCALE_SABBREVLANGNAME, LocaleName, SizeOf(LocaleName));

P := PChar(@FileName) + lstrlen(FileName);

while (P^ <> '.') and (P <> @FileName) do Dec(P);

NewInst := 0;

Result := 0;

if P <> @FileName then

begin

Inc(P);

if LocaleName[0] <> #0 then

begin

// Then look for a potential language/country translation

lstrcpy(P, LocaleName);

NewInst := LoadLibraryEx(FileName, 0, LOAD_LIBRARY_AS_DATAFILE);

if NewInst = 0 then

begin

// Finally look for a language only translation

LocaleName[2] := #0;

lstrcpy(P, LocaleName);

NewInst := LoadLibraryEx(FileName, 0, LOAD_LIBRARY_AS_DATAFILE);

end;

end;

end;

if NewInst <> 0 then

Result := SetResourceHInstance(NewInst)

end;

function InternalReloadComponentRes(const ResName: string; HInst: THandle; var Instance: TComponent): Boolean;

var

HRsrc: THandle;

ResStream: TResourceStream;

AsInheritedReader: TAsInheritedReader;

begin { avoid possible EResNotFound exception }

if HInst = 0 then HInst := HInstance;

HRsrc := FindResource(HInst, PChar(ResName), RT_RCDATA);

Result := HRsrc <> 0;

if not Result then Exit;

ResStream := TResourceStream.Create(HInst, ResName, RT_RCDATA);

try

AsInheritedReader := TAsInheritedReader.Create(ResStream, 4096);

try

Instance := AsInheritedReader.ReadRootComponent(Instance);

finally

AsInheritedReader.Free;

end;

finally

ResStream.Free;

end;

Result := True;

end;

function ReloadInheritedComponent(Instance: TComponent; RootAncestor: TClass): Boolean; function InitComponent(ClassType: TClass): Boolean;

begin

Result := False;

if (ClassType = TComponent) or (ClassType = RootAncestor) then Exit;

Result := InitComponent(ClassType.ClassParent);

Result := InternalReloadComponentRes(ClassType.ClassName, FindResourceHInstance( FindClassHInstance(ClassType)), Instance) or Result;

end;

begin

Result := InitComponent(Instance.ClassType);

end;

procedure ReinitializeForms;

var

Count: Integer;

I: Integer;

Form: TForm;

begin

Count := Screen.FormCount;

for I := 0 to Count - 1 do

begin

Form := Screen.Forms[I];

ReloadInheritedComponent(Form, TForm);

end;

end;

end.

测试程序窗体单元文件如下：

///单元文件名：unit1.pas

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, MLanTool, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Exit1: TMenuItem;

Language1: TMenuItem;

Chese1: TMenuItem;

English1: TMenuItem; Button1: TButton; Memo1: TMemo; ListBox1: TListBox; GroupBox1: TGroupBox; Panel1: TPanel; procedure Exit1Click(Sender: TObject); procedure Chese1Click(Sender: TObject); procedure English1Click(Sender: TObject); Private

{ Private declarations }

Public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

const

ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;

CHINESE = (SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE;

procedure TForm1.Exit1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Chese1Click(Sender: TObject);

begin

if LoadNewResourceModule(CHINESE) <> 0 then

ReinitializeForms;

end;

procedure TForm1.English1Click(Sender: TObject);

begin

if LoadNewResourceModule(ENGLISH) <> 0 then

ReinitializeForms;

end;

end.

如果要自动切换语言，只要在FormCreate事件中添加如下代码即可：

if LoadNewResourceModule(SysLocale.DefaultLCID) <> 0 then

ReinitializeForms;

说明一点：在程序完成的时候，你应该用Luanguages子菜单的Update Resources DLL功能更新所有的窗体和代码，然后用Build All Project编译所有的文件，这样才能保证你的程序正常运行。

所有的源代码可以到</soft/MultiLan.rar>下载。

后 记：其实用INI文件也可以实现多语言界面的切换，好处是可以方便大家随时添加不同的语言文件，但是，对于一个大型的程序来说，用INI是不现实的。用 INI实现语言界面的程序，大家可以到</soft/winupx.rar>下载源代 码和测试程序。

干净搞定delphi多语言-兼论设计模式

随着全球化程度加深，软件越来越像蒲公英，到处飘散、扎根。这其中要解决的是不同语言的显示问题。我们当然希望一套程序，可以不修改代码就可以支持不同的语言，不要去维护很多的版本。

首先要谈到的一个问题是乱码问题，因为delphi win32到11.x版还是不支持unicode，所以一般使用Ansi码，有这样几种情况会显示乱码：

使用的语言文字与系统当前设定的语言不一样；比如简体版QQ在繁体操作系统（或简体操作系统的区域设置中“非Unicode程序的语言”设定为繁体）就是乱码。即使改变Font.Charset，某些元件仍然会出现乱码，如StatusBar。因此，在越南文版的windows显示越南文，在伊朗文版的windows显示伊朗文，不要在越南文版windows显示伊朗文，在伊朗文版windows显示越南文，这样就能确保没有乱码问题。好在一般这样的错位用法也不多见。

系统没有安装你要显示的语言的语言包；

如果你要保证完全无乱码，必须考虑使用unicode码，使用成套的支持unicode的元件，如tnt，但它在UI变现上比较单一，你不可能不使用别的元件。 言归正传，首先，看看哪些地方的字串需要实现多语言，并来看看各种实现方法的优劣。

1、界面上的元件，如TButton的Caption；

2、主动弹出的消息，如ShowMessage('Are you sure?')，Raise Exception.Create('Error!')；

3、例外错误举发的报告信息，如f/0引起的exception；

4、第3方元件包内部的上述字串；

实现多语言的方法很多，列举一二：

1、delphi自带的Resource生成工具

此工具把专案的dfm文件里的所有字串以及pas中定义为ResourceString的字串列举出来，按不同的语言编译成不同的Resource，专案编译前先选语言，每种语言编译成一个exe(此处有误, exe中是Base Language 的资源, 每种语言编译成一个资源Dll, 文件名跟程序同名, 后缀不是Dll, 而是locale的代码, 如enu, eng, 前两个表示语言, 第三个表示国家)。

这个工具使用很不方便，不是一个完整的解决方案，跟Borland的Midas的demo一样（TClientDataSet通过ProviderName连接到RemoteDatamodule的

TDataSetProvider，实际开发Erp系统时，谁会放100个TDataSetProvider连接到100个TDataSet？），只是一个原理尚通的示范。

首先，由于dfm本身也是资源文件的一部分，因此每次修改都要“Update Resource DLLs...”，如修改Button1为Button2，如果你忘了，运行时就会报“找不到资源Button1的错误”(这个好像并没有什么麻烦的)；提供的字典编辑画面中，除了字串，还有Left/Top等资料(这个确实不方便,东西太多了)；字典不能重用，在一个模组翻译了，在第2个模组还要再翻译相同的词。

其次，每种语言一个exe/bpl，如果你的系统是Package切割，bpl也是每种语言一个，还要小心别把不同语言的bpl组合在了一起，到时候一个画面显示中文，一个显示德文（有一个可能是乱码）就惨了。

再次，在作bpl组装的系统时，第3方元件如果没有提供多语言的方案，你就需要修改第3方元件，但一般我们不这样干，因为第3方元件会随时更新，难道每次人家更新你也再更新人家。

因此，一般都没有人使用Delphi本身提供的这个方案（除了作demo）。

2、Resource dll方式

用单独的ResourceDll，用LoadResString等函数获得翻译字串，但你要到处写这个函数来一一替换，特别是Form上的字串，噢，会累死人。字典可以重用。

3、网上讨论很多的ini文件方式

此方法是写个替换的引擎，在运行时从ini文件读取语言字串来替换画面元件的显示文字。这个方法比第一种进步很多，不需要每种语言编译一个exe了，只要提供不同的ini文件就好；画面修改时如果ini没有同步更新也不会出现致命错误，最多就是某个文字没有转换；引擎也提供了字串转换函数，因此也可以处理主动弹出的消息。这个方法在文件格式上有三种不同的实现：

(1)、[编号]=[字串]

每个字串从1开始编号，1，2，3，4......，很麻烦，代码要修改，当然运行时切换语言没问题。

(2)、[元件.属性]=[字串]

这种实现把元件instance一一对应，用RTTI来判断属性，替换很精确，也可以运行时切换语言。不足之处是，略显呆板，多个元件相同的字串会多次列出；没有扩展性，表现TListView的Columns等复杂元件时比较吃力。 (3)、[旧字串]=[新字串]

不管元件的instance，ini是纯粹的语言对照表，或者叫字典，扩展性、运行时切换语言可能在引擎里。不足之处是不能处理一词多义。 总的说来，这种方式有很大进步，但为了用ini文件，大家还要费力的破解64k的限制，更专业的方式是使用自定义的文件格式。

在简单性方面，无疑是这种自定义的转换引擎，[旧字串]=[新字串]的文件格式来得方便，借助字典管理工具，字典文件可以重复使用，也可以提供给专业翻译公司翻译。那么剩下的问题在引擎上，如何方便，最好用户不写一行代码；如何扩展性强，支持任意的第三方元件；如何有弹性，同一个画面有多种语言的文字，同一个词可以转换成不同的意思......

4、给每个元件类继承一个子类，在子类的Loaded方法里转换文字。由于要处理的都是叶级元件（虽然TLabel、TPanel都是从TCustomControl来，但不能只处理TCustomControl），工作量比较大；对旧有程序除了换元件无能为力。

5、为每个元件类注册一个转换函数，引擎遍历Container，为每个元件找到血源最近的转换函数，调用这个函数转换这个元件的文字。这样可以不必处理叶结点，只需在恰当的元件层上注册函数；不必改动旧有程序。設計時Form上只需要放一個轉換元件，這個元件在Loaded后開始掃描Form上的元件，從for I:=0 to ComponentCount-1或從for i:=0 to ControlCount-1遞歸，找到一個元件就去查找其血緣最近的註冊函數，然後調用這個函數替換其文字。因爲註冊函數

是額外加上去的，所以不會動到舊的代碼，對任意第方元件都可以擴展支持，且也不用去修改人家第3方元件的代碼。

我认为第5种方法很优雅，看起来比较干净。用GOF的设计模式来套，这属于Mediator pattern(中介者模式)。多年前，我们使用一个叫TXPMenu的元件来获得XP风格的界面，也是感觉到它很干净，一个元件就搞定一切，不用TLabel换成TFlatLabel,TButton换成TFlatButton......我记得《程序员》上还有文章专门称赞这个元件。但那个元件没有使用中介者模式，不能很好的扩展对第3方元件的支持。

最后，我们畅想一下，如果我是Borland，如何在Delphi里完整支援多语言。Delphi提供了一个区块定义的关键字“ResourceString”，在这个区块定义的字串常量，编译器会把它编译在exe文件的资源区，运行时用

LoadStringA这个Windows API来读取，因此有些外部转换工具可以直接从exe文件读取这些资源字串，再写入转换后的字串；内嵌的转换引擎也可以拦截这个API函数来转换文字。但是如果exe里的字串资源化不彻底，就无能为力，这个不彻底恰恰来自Delphi的DFM文件，Delphi把DFM文件整个作为一项资源放在exe里，其上的字串就没法决定是否要don`t resource（Delphi源码里很多常量字串都有这个提示）了。

如果除了string,widestring,ansistring等等这些数据类型，delphi增加一种数据类型multistring，然后修改vcl元件定义（拜托Borland连同Unicode一起解决了吧），像TLabel.Caption定义成MultiString，对MultiString类型，有一种专门的处理方法，如类似ResourceString用

LoadString API来处理，每次读取就转换一次，但应该比这个内容更多，比如要传出instance，然后提供一个全局的ApplicationMulti元件，类似

ApplicationEvent，让外面能捕捉到。至于字典，只能外部用户提供（当然可以制定一个标准格式让delphi人都可以共享交换）。

此法看起来可行，但还有个效率问题要考虑，（1）每次读取都转换，对频繁draw的东西效率低；（2）比如一个ToolBar有好多的ToolButton，批次更新时一般都会用BeginUpdate/EndUpdate，vcl如何告知后代来提高这种效率。（补记：效率看起来不是问题，对多次字串更改导致频繁draw，其实元件自己已经会用beginupdate/endupdate处理，外部不会涉及）