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

原创 2002年05月24日 12:31:00
Delphi中如何使用RC文件中的字符串表 

原作作者:wangzhidong(Steven Bob)

时间:2002325日星期一 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

首先用NotepadResource workshop 4.5建立RC文件。

结构如下 

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

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.exercdemo.rc编译成rcdemo.res文件,接着把rcdemo.res改名

rcdemo.rc文件。 如用Resource workshop 4.5会产生一个PAS单元文件,本例为urcdemo.pas

内容如下:

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

urcdemo.pas

produced by Borland Resource Workshop

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

unit urcdemo;

interface

const

       IDS_HELLO   =     2;

       IDS_RC  =     1;

implementation

end.

利用此项技术可实现错误处理中字符串问题存储问题和程序的本地化问题。

范例:

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原生函数}

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位格式的差异。

实例下载:http://www.megspace.com/computers/coreware/

Delphi学习笔记六——文件路径相关的字符串操作

uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin ...
  • kimifdw
  • kimifdw
  • 2012年12月18日 09:40
  • 925

Delphi学习笔记——文件路径相关的字符串操作(综合)

uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string...
  • SauceJ
  • SauceJ
  • 2014年05月19日 15:20
  • 320

DELPHI字符串链表类

  • 2013年01月05日 23:17
  • 3KB
  • 下载

xx.rc windows资源文件的定义和使用

统一资源管理: 在win32编程中,为方便项目中的资源统一管理,提供了一个格式统一的资源文件,对各种资源进行管理。它的扩展名是.rc,在程序编译时它会被资源编译器编译生成一个.res的二进制文件。 ...

Qt用VS添加RC文件(顺便讲Qt-VS-Addin插件使用方法)

环境: Qt版本:5.5.1 VS版本:Microsoft Visual Studio2013 Qt-Addin版本:qt-vs-addin-1.2.5 利用vs的原因是VS本身是微软的产品,而用他家...

使用openssl中的加密函数AES、RC4、RSA对文件加密的一个例子

对加密有所了解的读者,相信对这三种加密算法也已经有了些许了解。 比如RSA是一种很慢的加密方式,他是非对称的,需要有公钥和私钥。对文件中的数据,不大适合用这种方式来加密。因为我使用的...

GTK 主题指南 RC文件使用(二) 转载

原文地址: http://seasonkky.blog.163.com/blog/static/972917152010612114537602/     GTK开发之RC文件使用   20...

用delphi写的字符串链表类

  • 2008年09月11日 20:20
  • 2KB
  • 下载

Delphi字符串链表类

  • 2008年10月04日 07:48
  • 3KB
  • 下载

各种资源的利用(如何使用RC文件)

----在编写程序的过程中,经常要用到各种资源。比如说,想给自己的程序换个自己的图标,使用一些活泼的光标来增加趣味性,播放一些声音和动画文件,或者使用别人写好的程序来实现某个功能。我们往往希望将这些资...
  • nodeman
  • nodeman
  • 2015年01月27日 15:52
  • 187
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi中如何使用RC文件中的字符串表
举报原因:
原因补充:

(最多只允许输入30个字)