Cara menggunakan tabel string dalam file RC di Delphi
Penulis asli: wangzhidong (Steven Bob) Waktu: Senin, 25 Maret 2002. Pertama gunakan Notepad atau Resource workshop 4.5 untuk membuat file RC. Strukturnya adalah sebagai berikut
| /****************************************************** ***** ****************************rcdemo.rcPROdiproduksi oleh Lokakarya Sumber Daya Borland*********** ******* ********************************************** ******** ***********/#include "urcdemo.pas"STRINGTABLE {IDS_HELLO, "Saya senang bertemu Anda."IDS_RC, "Pemrograman ini dibuat oleh %s ."} |
Kemudian gunakan BRCC.EXE atau BRCC32.exe untuk mengkompilasi rcdemo.rc ke dalam file rcdemo.res, lalu ganti nama rcdemo.res menjadi file rcdemo.rc. Jika Anda menggunakan Resource workshop 4.5, file unit PAS akan dibuat, dalam hal ini, konten urcdemo.pas adalah sebagai berikut:
| (****************************************************** ***** ****************************urcdemo.pasdiproduksi oleh Borland Resource Workshop*********** ***** ************************************************* ****** ***********)unit urcdemo;interfaceconst IDS_HELLO = 2; IDS_RC = 1;implementasiakhir. |
Teknologi ini dapat digunakan untuk memecahkan masalah penyimpanan string dan masalah lokalisasi program dalam penanganan kesalahan. contoh:
| unit ufmRCDemo;antarmuka menggunakan Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls;ketik TForm1 = class(TForm) GroupBox1: TGroupBox; Button1: TButton; Button2: TButton GroupBox2: TGroupBox; ; Tombol4: Tombol T; Button1Click(Pengirim: TObject); prosedur Button2Click(Pengirim: TObject); prosedur Button3Click(Pengirim: TObject); prosedur Button4Click(Pengirim: TObject); private { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: TForm1;implementasi menggunakan urcdemo ;{$R rcdemo.rc}{$R *.dfm}{Gunakan windows API}prosedur TForm1.Button1Click(Sender: TObject);var arystr: array [0..255] dari char;begin windows.LoadString(hInstance, IDS_RC, arystr, sizeof(arystr)); TForm1.Button2Click(Pengirim: TObject);var arystr: array [0..255] dari char;begin windows.LoadString(hInstance, IDS_Hello, arystr, sizeof(arystr)); ShowMessage(arystr);end;{Gunakan fungsi asli Delphi}prosedur TForm1.Button3Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_Hello)) ;akhir;prosedur TForm1.Button4Click(Pengirim: TObject);mulai ShowMessage(LoadStr(IDS_RC));akhir;akhir. |
Catatan: Perbedaan antara format 16-bit dan format 32-bit. Unduhan contoh: http://www.megspace.com/computers/coreware/
