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

字符串的存储在应用程序中是独立的，应用程序只有在使用资源时载入，使用完之后清
除，从而节省内存，同时字符串也可以用于翻译，一些汉化软件都利用了字符串。编辑的字
符串放在一个文本文件中，可以使用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);