使用字符串資源的技巧 (2000年8月20日) 

本站更新  分類:   作者:srw  推薦:   閱讀次數:649  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

----不同于其它資源，字符串資源不能直接編輯，需要先按格式編
制一個文本文件，再用程序將其編譯成資源文件。下面用一個簡單
的例子來說明。首先用文本編輯器編一個文件lb.rc，其內容如下：

STRINGTABLE
BEGIN
1,"開始"
2,"退出"
END

----然后，找到Delphi的Bin子目錄下的BRCC32.EXE文件進行編
譯，命令格式為：BRCC32LB.RC，編譯結束后即生成一個資源文件
lb.res。要使用該資源文件，需要在單元文件implementation部分
的開始處包括資源文件：{＄RLB.RES}。在本例中，上面的字符串
用于給一個命令按鈕更換Caption設置，使用的函數是WindowsAPI
函數LoadString，以下是使用實例：

//在FormCreat過程中：
var
txtCaption:array[0..255]ofchar;
begin
//
ifLoadString(HInstance,1,txtCaption,SizeOf
(txtCaption))〉0then
btnStart.Caption:=StrPas(txtCaption);
end;
//在btnStartClick過程中：
var
txtCaption:array[0..255]ofchar;
begin
ifLoadString(HInstance,2,txtCaption,
SizeOf(txtCaption))〉0then
btnStart.Caption:=StrPas(txtCaption);
end;


----這樣就可以在程序運行時改變各種屬性，而不需要在程序中出
現字符串。如果使用另一個Delphi函數LoadStr，會顯得更加簡單：

var
txtCaption:String;
begin
txtCaption:=LoadStr(2);
iftxtCaption〈〉′′then
btnStart.Caption:=txtCaption;
end;

----或許大家可以從以上的過程中看出，使用123來標識一個字符
串有些簡陋，也很容易出錯，那么怎么辦呢?我們可以采取像C＋＋
中使用字符串的方法，為每個字符串預定義一個ID，如：

const
IDC-START=1;
IDC-EXIT=2;

----當然要把它放在一個unit里（類似于C＋＋的.h文件），在使
用的單元里再uses一下就可以了，這樣應用感覺是不是很爽呢？

txtCaption:=LoadStr(IDC-EXIT);