Comment utiliser la table de chaînes dans le fichier RC dans Delphi
Auteur original : wangzhidong (Steven Bob) Heure : lundi 25 mars 2002. Utilisez d'abord le Bloc-notes ou Resource Workshop 4.5 pour créer le fichier RC. La structure est la suivante
| /*************************************************** ***** **************************rcdemo.rcPRroduit par Borland Resource Workshop*********** ***** ******************************************** ****** ***********/#include "urcdemo.pas"STRINGTABLE {IDS_HELLO, "Je suis content de vous voir."IDS_RC, "Cette programmation est créée par %s." } |
Utilisez ensuite BRCC.EXE ou BRCC32.exe pour compiler rcdemo.rc dans le fichier rcdemo.res, puis renommez rcdemo.res en fichier rcdemo.rc. Si vous utilisez Resource Workshop 4.5, un fichier d'unité PAS sera généré. Dans ce cas, le contenu de urcdemo.pas est le suivant :
| (*************************************************** ***** **************************urcdemo.pasproduit par Borland Resource Workshop*********** ******* ******************************************* ******** ***********)unité urcdemo;interfaceconst IDS_HELLO = 2; IDS_RC = 1;fin de l'implémentation. |
Cette technologie peut être utilisée pour résoudre des problèmes de stockage de chaînes et des problèmes de localisation de programmes lors de la gestion des erreurs. exemple:
| unité ufmRCDemo;interfaceutilise Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) GroupBox1 : TGroupBox Button2 : TButton; ; Bouton4 : procédure TButton ; Button1Click(Expéditeur : TObject); procédure Button2Click(Expéditeur : TObject); procédure Button3Click(Expéditeur : TObject); procédure Button4Click(Expéditeur : TObject); private { Déclarations privées } public { Déclarations publiques } end;var Form1: TForm1;implémentation utilise urcdemo ;{$R rcdemo.rc}{$R *.dfm}{Utiliser Windows API}procédure TForm1.Button1Click(Sender: TObject);var arystr: tableau [0..255] de char;begin windows.LoadString(hInstance, IDS_RC, arystr, sizeof(arystr));end;procedure TForm1.Button2Click (Expéditeur : TObject);var arystr : tableau [0..255] de char;begin windows.LoadString(hInstance, IDS_Hello, arystr, sizeof(arystr));end;{Utiliser la fonction native Delphi}procédure TForm1.Button3Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_Hello)) ;fin;procédure TForm1.Button4Click(Expéditeur : TObject);commencer ShowMessage(LoadStr(IDS_RC));fin;fin. |
Remarque : La différence entre le format 16 bits et le format 32 bits. Téléchargement d'instances : http://www.megspace.com/computers/coreware/
