在Delphi中如何使用RC文件中的字符串表

2019-11-18 18:41:17

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

在Delphi中如何使用RC文件中的字符串表

原作作者：wangzhidong(Steven Bob)

時(shí)間：2002年3月25日星期一

首先用Notepad或Resource workshop 4.5建立RC文件。

結(jié)構(gòu)如下

/****************************************************************************

rcdemo.rc

PRoduced by Borland Resource Workshop

*****************************************************************************/

#include "urcdemo.pas"

STRINGTABLE

{

IDS_HELLO, "I am glad to see you."

IDS_RC, "This programming is created by %s."

}

然后用BRCC.EXE 或BRCC32.exe把rcdemo.rc編譯成rcdemo.res文件，接著把rcdemo.res改名

為rcdemo.rc文件。如用Resource workshop 4.5會(huì)產(chǎn)生一個(gè)PAS單元文件，本例為urcdemo.pas

內(nèi)容如下：

(****************************************************************************

urcdemo.pas

produced by Borland Resource Workshop

*****************************************************************************)

unit urcdemo;

interface

const

IDS_HELLO = 2;

IDS_RC = 1;

implementation

end.

利用此項(xiàng)技術(shù)可實(shí)現(xiàn)錯(cuò)誤處理中字符串問(wèn)題存儲(chǔ)問(wèn)題和程序的本地化問(wèn)題。

范例：

unit ufmRCDemo;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Button1: TButton;

Button2: TButton;

GroupBox2: TGroupBox;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses urcdemo;

{$R rcdemo.rc}

{$R *.dfm}

{利用windows API}

procedure TForm1.Button1Click(Sender: TObject);

var

arystr: array [0..255] of char;

begin

windows.LoadString(hInstance, IDS_RC, arystr, sizeof(arystr));

ShowMessage(arystr);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

arystr: array [0..255] of char;

begin

windows.LoadString(hInstance, IDS_Hello, arystr, sizeof(arystr));

ShowMessage(arystr);

end;

{利用Delphi原生函數(shù)}

procedure TForm1.Button3Click(Sender: TObject);

begin

ShowMessage(LoadStr(IDS_Hello));

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ShowMessage(LoadStr(IDS_RC));

end;

end.

注意：16位格式于32位格式的差異。

實(shí)例下載：http://www.megspace.com/computers/coreware/

上一篇：談Delphi下Internet的編程技巧(一)

下一篇：DELPHI程序中自動(dòng)設(shè)置ODBC數(shù)據(jù)源

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

在Delphi中如何使用RC文件中的字符串表

在Delphi中如何使用RC文件中的字符串表