delphi 从INI文件载入语言包

2024-01-19 16:48•java•阅读 3328

下面是一个通用过程,根据INI文件中的资源改变界面语言(仅Caption和Hint属性)

参数一:为一Component,一般为TForm,此过程将循环列举其子Component并查找是否具有相关属性,

有的话则从INI文件读取信息并设置属性

参数二:为INI文件全名

//引用TypInfo,IniFiles/TntInifiles单元

//声明的资源,默认的,防止变量出现空值

resourcestring

S_Menu = 'Menu';

S_AppName = 'Window View Tool';

S_Null = '(Null)';

S_About = '&About...';

S_Warning = 'Warning';

S_Confirm = 'Confirm';

S_Error = 'Error';

S_Information = 'Information';

//声明的常量

const

SCaption = 'Caption';

SHint = 'Hint';

SIniAppName = 'Window View Tools';

SIniLanguage = 'Language';

SLanguageName = 'LanguageName';

{-----------------------------------------------------------------------------

Procedure: LoadLanguage

Author: ysai

Date: 2003-7-20

Arguments: AComponent:TComponent;AFileName:string=''

-----------------------------------------------------------------------------}

procedure LoadLanguage(

const AComponent : TComponent;

const AFileName : widestring = ''

);

//设置语言

function PropertyExists(

const AObject : TObject;

const APropName : wideString

):Boolean;

//判断一个属性是否存在

var

PropInfo:PPropInfo;

begin

PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);

Result:=Assigned(PropInfo);

end;

function SetStringPropertyIfExists(

const AObject : TObject;

const APropName : widestring;

const AValue : widestring

):Boolean;

//给字符串属性赋值,如果存在

var

PropInfo:PPropInfo;

begin

PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);

if Assigned(PropInfo) and

(PropInfo.PropType^.Kind in [tkString, tkLString, tkWString]) then

begin

SetWideStrProp(AObject,PropInfo,AValue);

Result:=True;

end else

Result:=False;

end;

function GetStringProperty(

const AObject : TObject;

const APropName : widestring

):wideString;

//取得字符串属性值

var

PropInfo:PPropInfo;

begin

Result := '';

PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);

if Assigned(PropInfo) and

(PropInfo^.PropType^.Kind in [tkString, tkLString, tkWString]) then

Result := GetWideStrProp(AObject,PropInfo);

end;

function SetIntegerPropertyIfExists(

const AObject : TObject;

const APropName : widestring;

const AValue : Longint

):Boolean;

//给整型属性赋值,如果存在

var

PropInfo:PPropInfo;

begin

PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);

if Assigned(PropInfo) and

(PropInfo^.PropType^.Kind = tkInteger) then

begin

SetOrdProp(AObject,PropInfo,AValue);

Result:=True;

end else

Result:=False;

end;

function GetObjectProperty(

const AObject : TObject;

const APropName : widestring

):TObject;

var

PropInfo:PPropInfo;

begin

Result := nil;

PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);

if Assigned(PropInfo) and

(PropInfo^.PropType^.Kind = tkClass) then

Result := GetObjectProp(AObject,PropInfo);

end;

var

i : Integer;

s : widestring;

FsLanguage,sFileName : widestring;

SAppName: widestring;

SMenu : widestring;

SNull : widestring;

SAbout: widestring;

SWarning : widestring;

SConfirm : widestring;

SError : widestring;

SInformation: widestring;

begin

if AFileName = '' then

sFileName :=FsLanguage //FsLanguage为默认语言文件名

else

sFileName :=AFileName;

if not FileExists(sFileName) then Exit;

with TTntIniFile.Create(sFileName) do

try

//下面为读取变量

SAppName := ReadString(SIniLanguage,'AppName',S_AppName);

SMenu := ReadString(SIniLanguage,'Menu',S_Menu);

SNull := ReadString(SIniLanguage,'Null',S_Null);

SAbout := ReadString(SIniLanguage,'About',S_About);

SWarning := ReadString(SIniLanguage,'Warning',S_Warning);

SConfirm := ReadString(SIniLanguage,'Confirm',S_Confirm);

SError := ReadString(SIniLanguage,'Error',S_Error);

SInformation := ReadString(SIniLanguage,'Information',S_Information);

//设置组件Caption

if PropertyExists(AComponent,SCaption) then

begin

s := ReadString(SIniLanguage,AComponent.Name+'.'+SCaption,'');

if s<>'' then

SetStringPropertyIfExists(AComponent,SCaption,s);

end;

//读取字体

if PropertyExists(AComponent,'Font') then

begin

s := ReadString(SIniLanguage,'FontName','');

i := ReadInteger(SIniLanguage,'FontSize',0);

if s<>'' then

SetStringPropertyIfExists(

GetObjectProperty(AComponent,'Font'),'Name',s);

if i > 0 then

SetIntegerPropertyIfExists(

GetObjectProperty(AComponent,'Font'),'Size',i);

end;

//列举所有子组件并设置属性

for i := 0 to AComponent.ComponentCount - 1 do

begin

//设置Caption

if PropertyExists(AComponent.Components[i],SCaption) then

begin

s := ReadString(SIniLanguage,AComponent.Name+'.'+

AComponent.Components[i].Name+'.'+SCaption,'');

if s<>'' then

SetStringPropertyIfExists(AComponent.Components[i],SCaption,s);

end;

//设置Hint

if PropertyExists(AComponent.Components[i],SHint) then

begin

s := ReadString(SIniLanguage,AComponent.Name+'.'+

AComponent.Components[i].Name+'.'+SHint,'');

if s = '' then //如果Hint为空,则改Hint同Caption

s := GetStringProperty(AComponent.Components[i],SCaption);

if s<>'' then

SetStringPropertyIfExists(AComponent.Components[i],SHint,s);

end;

//更改默认语言文件为当前文件

FsLanguage := sFileName;

finally

Free;

end;

procedure TFrmWindowView.FormShow(Sender: TObject);

begin //加载语言文件

if FileExists(ExtractFilePath(Application.exename)+'\Chinese.ini') then

LoadLanguage(FrmWindowView,ExtractFilePath(Application.exename)+'\Chinese.ini');

end;

//示例INI文件Chinese.ini 用记事本编辑ini,保存为unicode编码格式窗口及所有控件用TntWare2.3,以方便显示Unicode字符.

[Language]

LanguageName=中文

AppName=窗口查看器

Menu=菜单

Null=(空)

About=关于(&A)...

Warning=警告

Confirm=确认

Error=错误

Information=信息

FontName=宋体

FontSize=9

FrmWindowView.Caption=窗口查看器

FrmWindowView.tbFile.Caption=文件(&F)

FrmWindowView.tbFile.Hint=文件菜单

FrmWindowView.tbOption.Caption=选项(&O)

FrmWindowView.tbOption.Hint=选项菜单

FrmWindowView.tbTools.Caption=工具(&T)

FrmWindowView.tbTools.Hint=工具菜单

FrmWindowView.tbHelp.Caption=帮助(&H)

FrmWindowView.tbHelp.Hint=帮助菜单

FrmWindowView.panSearch.Caption=搜索文本:

FrmWindowView.panSearch.Hint=搜索文本

FrmWindowView.edtSearch.Hint=在此键入搜索文本

FrmWindowView.btnSearch.Caption=搜索

FrmWindowView.btnSearch.Hint=开始搜索

FrmWindowView.tv.Hint=捕获结果,按鼠标右键弹出动作菜单

FrmWindowView.acExit.Caption=退出(&X)

FrmWindowView.acExit.Hint=退出程序

FrmWindowView.acLockCapture.Caption=锁定捕获

FrmWindowView.acLockCapture.Hint=选定后将鼠标移动到目标对象上

FrmWindowView.acCapture.Caption=捕获

FrmWindowView.acCapture.Hint=按住鼠标然后拖曳到目标对象上

FrmWindowView.acCaptureAll.Caption=捕获所有

FrmWindowView.acCaptureAll.Hint=捕获所有可列举出的窗口

FrmWindowView.acAutoHide.Caption=自动隐藏

FrmWindowView.acAutoHide.Hint=在捕获时自动隐藏程序

FrmWindowView.acStayOnTop.Caption=总在最前

FrmWindowView.acStayOnTop.Caption=窗口总在最前

FrmWindowView.acLanguage.Caption=语言(&L)

FrmWindowView.acLanguage.Hint=选择语言

FrmWindowView.acProcessManage.Caption=进程管理

FrmWindowView.acProcessManage.Hint=打开进程管理工具

FrmWindowView.acAbout.Caption=关于(&A)...

FrmWindowView.acAbout.Hint=显示关于窗口

FrmWindowView.acCopy.Caption=复制(&C)

FrmWindowView.acCopy.Hint=复制所选节点内容

FrmWindowView.acEnable.Caption=使用(&E)

FrmWindowView.acEnable.Hint=使选中的对象可用

FrmWindowView.acDisable.Caption=禁用(&D)

FrmWindowView.acDisable.Hint=使选中的对象不可用

FrmWindowView.acShow.Caption=显示(&S)

FrmWindowView.acShow.Hint=显示选中的对象

FrmWindowView.acHide.Caption=隐藏(&H)

FrmWindowView.acHide.Hint=隐藏选中的对象

FrmWindowView.acDelete.Caption=删除(&L)

FrmWindowView.acDelete.Hint=删除选中的对象(不能恢复)

FrmWindowView.acExport.Caption=导出(&X)...

FrmWindowView.acExport.Hint=导出选中的节点及子节点树到文件

FrmProcessManage.Caption=进程管理

FrmProcessManage.labProcessList.Caption=进程列表(&L)

FrmProcessManage.labProcessList.Hint=当前进程列表

FrmProcessManage.lbProcessList.Hint=当前进程列表

FrmProcessManage.btnRefresh.Caption=刷新(&R)

FrmProcessManage.btnRefresh.Hint=刷新进程列表

FrmProcessManage.btnEndProcess.Caption=结束进程(&C)

FrmProcessManage.btnEndProcess.Hint=结束选择的多个进程(小心使用)

FrmProcessManage.btnClose.Caption=关闭(&X)

FrmProcessManage.btnClose.Hint=关闭窗口

上一篇 »HTML中Data的数据类型
下一篇 »上传文件时重新载入页面以获取源代码 http://*/upload.php

delphi 从INI文件载入语言包

相关推荐

[Spring MVC]设置welcome-file样式失效/无法载入css，js文件

windows下安装php5.4支持MySQL

PHP代码重用

PHP __autoload函数，自动载入类文件的使用方法(转

php安装扩展的方法

Go:包与工具

Delphi: RTTI与ini配置文件

R语言调用C函数 - 旧版本C语言包转移