كيفية استخدام جدول السلسلة في ملف RC في دلفي
المؤلف الأصلي: wangzhidong (ستيفن بوب) الوقت: الاثنين 25 مارس 2002. استخدم أولاً برنامج Notepad أو Resource Workshop 4.5 لإنشاء ملف RC. الهيكل على النحو التالي
| /********************************************************************************************************************************************************************* ***** *************************** rcdemo.rcProduced بواسطة Borland Resource Workshop *********** ***************************************************************************************************************************************************************** ****** ***********/#include "urcdemo.pas"STRINGTABLE {IDS_HELLO، "أنا سعيد برؤيتك."IDS_RC، "تم إنشاء هذه البرمجة بواسطة %s." } |
ثم استخدم BRCC.EXE أو BRCC32.exe لتجميع rcdemo.rc في ملف rcdemo.res، ثم قم بإعادة تسمية rcdemo.res إلى ملف rcdemo.rc. إذا كنت تستخدم Resource Workshop 4.5، فسيتم إنشاء ملف وحدة PAS، وفي هذه الحالة، يكون محتوى urcdemo.pas كما يلي:
| (****************************************************** ***** ************************** urcdemo.pas من إنتاج ورشة عمل بورلاند للموارد *********** ******************************************************************************************************************************************************************* ******** ***********)unit urcdemo;interfaceconst IDS_HELLO = 2; IDS_RC = 1;implementationend. |
يمكن استخدام هذه التقنية لحل مشكلات تخزين السلسلة ومشاكل توطين البرامج في معالجة الأخطاء. مثال:
| وحدة ufmRCDemo؛ تستخدم واجهات Windows والرسائل وSysUtils والمتغيرات والفئات والرسومات وعناصر التحكم والنماذج ومربعات الحوار وStdCtrls؛ ؛ Button4: إجراء TButton Button1Click(Sender: TObject); الإجراء Button2Click(Sender: TObject); الإجراء Button3Click(Sender: TObject); ;{$R rcdemo.rc}{$R *.dfm}{استخدم windows API}إجراء TForm1.Button1Click(Sender: TObject);var arystr: صفيف [0..255] من char;begin windows.LoadString(hInstance, IDS_RC, arystr, sizeof(arystr));end;procedure TForm1.Button2Click(Sender: TObject);var arystr: صفيف [0..255] من char;begin windows.LoadString(hInstance, IDS_Hello, arystr, sizeof(arystr));end;{استخدام وظيفة دلفي الأصلية}إجراء TForm1.Button3Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_Hello)) ;end;إجراء TForm1.Button4Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_RC));end;end. |
ملاحظة: الفرق بين تنسيق 16 بت وتنسيق 32 بت. تنزيل المثيل: http://www.megspace.com/computers/coreware/
