首先用Notepad或Resource 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.exe把rcdemo.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位格式的差异。