2023年12月20日发(作者：)

----------------仅供学习参考----------------关于DELPHI程序多语言支持的问题写DELPHI程序，是如何实现繁体化的？是如何开发英文版的？是通过外挂语言包吗？我完整地说一下我的问题：我写一个DELPHI程序，开发环境是是简体中文版本win xp系统+ Delphi 7的。现在想做一个繁体版本以及其他非简体中文版本的出来。此时遇到这几个问题：1、在非简体中文系统中均出现乱码或界面文字错位。2、而且语言包速度太慢了，每次启动要预读一下语言文件进行界面翻译，工程量大的时候明显感到启动速度下降了3、因为工程量比较大，逐一设置“提示内容”及“界面内容”的语言包比较麻烦，所以不想用ini文件或dll资源库的语言包形式请问各位DELPHI高手你们是怎么做的？有没有一劳永逸的方法？听说DELPHI内置的多国语言功能， 有没有用法帮助？还有没有其他一些好用简单强大的Unicode语言包控件？---------------------------------------------------------------------Delphi的多语言是这么用的，但是添加多语言后编译连接速度很慢，有时候10来分钟。可以把你的Delphi的窗体文件分给翻译来翻译，如果是Delphi7，需要先用来转换为文本格式。1、Project-New Application 创建你的中文版软件。2、Project-Language-Add 添加你的语言，比如美国英语（ENU）。或者File-New-Others-Dll Wizard3、保存后生成多个文件夹。4、Project-Build All5、程序目录下生成和工程文件同名的语言文件：;，软件发布需要带这些文件。6、把软件里面所有字符串定义为资源字符串。resourcestringC_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;usesReInit;

...if LoadNewResourceModule(ENGLISH) <> 0 thenbeginReInitializeForms();end;更多请参考Delphi帮助，里面写得更清楚。我以前也用INI文件做多语言，感觉挺好用，Delphi带得这个多语言感觉编译起来太慢，而且总需要Build半天。利用INI文件实现界面无闪烁多语言切换程序运行时，我们查找当前目录下所有的语言配置文件（*.ini），为了达到这个目的，我编写了如下的函数搜索目录下所有的语言配置文件的文件名，然后将文件名去掉ini扩展名保存返回：

function LanguagePack:TStrings;

var

ResultStrings:TStrings;

DosError:integer;

SearchRec:TsearchRec;

begin

ResultStrings:=;

DosError:=FindFirst(ExtractFilePath(ParamStr(0))+'*.ini', faAnyFile, SearchRec);

while DosError=0 do

begin

{ 返回的文件名并去掉末尾的.ini字符 }

(ChangeFileExt(,''));

DosError:=FindNext(SearchRec);

end;

FindClose(SearchRec);

Result:=ResultStrings;

end;

在Form建立的事件中添加代码，将目录下所有的语言文件名加入选择列表框中。

procedure eate(Sender: TObject);

begin

ings(SearchLanguagePack);

end;

程序的重点在如何切换语言，在ComboBox1的OnChange事件中进行切换操作。

这里我写了SetActiveLanguage过程用于实现这一操作。

procedure ox1Change(Sender: TObject);

begin

SetActiveLanguage();

end;

其中SetActiveLanguage代码如下：

procedure iveLanguage(LanguageName:string);

const

Translations='Translations';

Messages='Messages';

var

frmComponent:TComponent;

i:Integer;

begin

with (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,

+'.Caption',(frmComponent as TLabel).Caption);

end;

if frmComponent is TCheckBox then

begin

(frmComponent as TCheckBox).Caption:=

ReadString(Translations,

+'.Caption',(frmComponent as TCheckBox).Caption);

end;

if frmComponent is TButton then

begin

(frmComponent as TButton).Caption:=

ReadString(Translations,

+'.Caption',(frmComponent as TButton).Caption);

(frmComponent as TButton).Hint:=

ReadString(Translations,

+'.Hint',(frmComponent as TButton).Hint);

end;

if frmComponent is TMenuItem then

begin

(frmComponent as TMenuItem).Caption:=

ReadString(Translations,

+'.Caption',(frmComponent as TMenuItem).Caption);

end;

end;

M1:=ReadString(Messages,'M1',M1);

end;

end;

在这个过程中，我们遍历了Form中的所有组件，根据他们的类别和组件名动态的从ini配置文件中读出应该显示的语言文字。

用遍历组件的方法比一个一个写出具体的组件维护起来要方便很多，代码的适应性也更强。

其中M1为一个字符串变量，这样提示消息也能切换，比如在Button1的Click事件中

procedure 1Click(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用来重新刷新窗体和控件以保证同步。///文件名：t MaltiLan;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms;procedure ReinitializeForms;function LoadNewResourceModule(Locale: LCID): Longint;implementationtype TAsInheritedReader = class(TReader) Public procedure ReadPrefix(var Flags: TFilerFlags; var AChildPos: Integer); Override; end;procedure efix(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 ce = HInstance then begin if tance <> ce then FreeLibrary(tance); tance := NewInstance; Result := NewInstance; Exit; end; CurModule := ; 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 := (HInst, ResName, RT_RCDATA); try AsInheritedReader := (ResStream, 4096); try

Instance := otComponent(Instance); finally ; end; finally ; 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(arent); Result := InternalReloadComponentRes(ame, FindResourceHInstance( FindClassHInstance(ClassType)), Instance) or Result; end;begin Result := InitComponent(ype);end;procedure ReinitializeForms;var Count: Integer; I: Integer; Form: TForm;begin

Count := unt; for I := 0 to Count - 1 do begin Form := [I]; ReloadInheritedComponent(Form, TForm); end;end;end.测试程序窗体单元文件如下：///单元文件名：t Unit1;interfaceuses 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 1Click(Sender: TObject);begin Close;end;procedure 1Click(Sender: TObject);begin if LoadNewResourceModule(CHINESE) <> 0 then ReinitializeForms;end;procedure h1Click(Sender: TObject);begin if LoadNewResourceModule(ENGLISH) <> 0 then ReinitializeForms;end;end.如果要自动切换语言，只要在FormCreate事件中添加如下代码即可： if LoadNewResourceModule(tLCID) <> 0 then ReinitializeForms;说明一点：在程序完成的时候，你应该用Luanguages子菜单的Update Resources DLL功能更新所有的窗体和代码，然后用Build All Project编译所有的文件，这样才能保证你的程序正常运行。所有的源代码可以到下载。后 记：其实用INI文件也可以实现多语言界面的切换，好处是可以方便大家随时添加不同的语言文件，但是，对于一个大型的程序来说，用INI是不现实的。用 INI实现语言界面

的程序，大家可以到下载源代 码和测试程序。干净搞定delphi多语言-兼论设计模式随着全球化程度加深，软件越来越像蒲公英，到处飘散、扎根。这其中要解决的是不同语言的显示问题。我们当然希望一套程序，可以不修改代码就可以支持不同的语言，不要去维护很多的版本。 首先要谈到的一个问题是乱码问题，因为delphi win32到11.x版还是不支持unicode，所以一般使用Ansi码，有这样几种情况会显示乱码：使用的语言文字与系统当前设定的语言不一样；比如简体版QQ在繁体操作系统（或简体操作系统的区域设置中“非Unicode程序的语言”设定为繁体）就是乱码。即使改变t，某些元件仍然会出现乱码，如StatusBar。因此，在越南文版的windows显示越南文，在伊朗文版的windows显示伊朗文，不要在越南文版windows显示伊朗文，在伊朗文版windows显示越南文，这样就能确保没有乱码问题。好在一般这样的错位用法也不多见。系统没有安装你要显示的语言的语言包； 如果你要保证完全无乱码，必须考虑使用unicode码，使用成套的支持unicode的元件，如tnt，但它在UI变现上比较单一，你不可能不使用别的元件。 言归正传，首先，看看哪些地方的字串需要实现多语言，并来看看各种实现方法的优劣。 1、界面上的元件，如TButton的Caption； 2、主动弹出的消息，如ShowMessage('Are you sure?')，Raise

('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

”，如修改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换成我记得《程序员》上还有文章专门称赞这个元件。但那个元件没有使用中介者模式，不能很好的扩展对第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一起解决了吧），像n定义成MultiString，对MultiString类型，有一种专门的处理方法，如类似ResourceString用LoadString API来处理，每次读取就转换一次，但应该比这个内容更多，比如要传出instance，然后提供一个全局的ApplicationMulti元件，类似ApplicationEvent，让外面能捕捉到。至于字典，只能外部用户提供（当然可以制定一个标准格式让delphi人都可以共享交换）。 此法看起来可行，但还有个效率问题要考虑，（1）每次读取都转换，对频繁draw的东西效率低；（2）比如一个ToolBar有好多的ToolButton，批次更新时一般都会用BeginUpdate/EndUpdate，vcl如何告知后代来提高这种效率。（补记：效率看起来不是问题，对多次字串更改导致频繁draw，其实元件自己已经会用beginupdate/endupdate处理，外部不会涉及）