• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中字符串资源的定义与使用

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

字符串的存储在应用程序中是独立的,应用程序只有在使用资源时载入,使用完之后清
除,从而节省内存,同时字符串也可以用于翻译,一些汉化软件都利用了字符串。编辑的字
符串放在一个文本文件中,可以使用Delphi中的:File-〉New-〉Text,编辑字符串文件,字
符串文件的格式如下:

  stringtable
  begin
  1,“book“
  2,“apple“
  3,“desk“
  4,“pen“
  5,“computer“
  end

  编辑完字符串文件后,选择Save as,注意要将文件类型改为资源编译文件(.RC),这还不是资源文件,它还必须经过编译才能成为资源文件(.RES)。编译命令为Dos提示符下的BRCC32,其路径为:D:Program FilesBorlandDelphi4Binrcc32.exe;例如上面的字符串资源编译文件名为:StrRes.rc,在DOS提示符下输入:brcc32 mydirStrRes.rc;则编译后会生成一个名为:StrRes.res的资源文件,使用该文件即可访问字符串资源。具体使用见下例:

unit teststr;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
 private
count : integer; 
public

 end;

var
Form1: TForm1;

implementation

{ *.DFM}
{ StrRes.RES}

const
wordcount = 5;

procedure TForm1.Button1Click(Sender: TObject);
var
strword : string;
begin
if count > wordcount then
begin
count := 1;
end;
strword := LoadStr(count);
label1.Caption := strword;
count := count + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption := LoadStr(1);
count := 2;
end;

end.

程序中常量wordcount用来记录字符串资源文件中字符串的数量,变量count用来记录显
示的字符串编号。程序运行后单击Button1按钮,则将循环显示字符串资源文件中的每一个字
符串。

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

另一篇文章

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

不同于其它资源,字符串资源不能直接编辑,需要先按格式编制一个文本文件,再用程
序将其编译成资源文件。下面用一个简单的例子来说明。首先用文本编辑器编一个文件lb.rc,
其内容如下:

stringtable

begin

1,"开始"

2,"退出"

end

然后,找到delphi的bin子目录下的brcc32.exe文件进行编译, 命令格式为: brcc32
lb.rc,编译结束后即生成一个资源文件lb.res。要使用该资源文件,需要在单元文件imple
mentation部分的开始处包括资源文件:<$R lb.res>。在本例中,上面的字符串用于给一个
命令按钮更换caption设置, 使用的函数是windows api函数 loadstring,以下是使用实例:

//在formcreat过程中:

var
txtcaption:array [0..255] of char;
begin
if loadstring(hinstance, 1, txtcaption, sizeof(txtcaption)) > 0 then
begin
btnstart.caption:=StrPas(txtcaption);
end;
end;

//在btnstartclick过程中:

var
txtcaption:array [0..255] of char;
begin
if loadstring(hinstance, 2, txtcaption, sizeof(txtcaption)) > 0 then

btnstart.caption:=strpas(txtcaption);

end;

这样就可以在程序运行时改变各种属性,而不需要在程序中出现字符串。如果使用另一
个delphi函数loadstr,会显得更加简单:

var
txtcaption:string;
begin
txtcaption:=loadstr(2);
if txtcaption <> '' then
begin
btnstart.caption:=txtcaption;
end;
end;

或许大家可以从以上的过程中看出, 使用123来标识一个字符串有些简陋,也很容易出
错,那么怎么办呢?我们可以采取像 c++ 中使用字符串的方法,为每个字符串预定义一个id,
如:

const

idc-start=1;

idc-exit=2;

当然要把它放在一个unit里(类似于c++的.h文件) ,在使用的单元里再uses一下就
可以了,这样应用感觉是不是很爽呢?

txtcaption:=loadstr(idc-exit);


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
学习笔记:delphi之TStringGrid发布时间:2022-07-18
下一篇:
Delphi的OverRide、OverLoad和Virtual方法发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap