Cómo utilizar la tabla de cadenas en un archivo RC en Delphi
Autor original: wangzhidong (Steven Bob) Hora: lunes 25 de marzo de 2002. Primero use el Bloc de notas o el Taller de recursos 4.5 para crear el archivo RC. La estructura es la siguiente.
| /*************************************************** ***** ****************************rcdemo.rcProducido por Borland Resource Workshop*********** ***** ********************************************** ****** ***********/#include "urcdemo.pas"STRINGTABLE {IDS_HELLO, "Me alegro de verte."IDS_RC, "Esta programación es creada por %s." } |
Luego use BRCC.EXE o BRCC32.exe para compilar rcdemo.rc en el archivo rcdemo.res y luego cambie el nombre de rcdemo.res al archivo rcdemo.rc. Si utiliza Resource Workshop 4.5, se generará un archivo de unidad PAS. En este caso, el contenido de urcdemo.pas es el siguiente:
| (************************************************* ***** ****************************urcdemo.pasproducido por Borland Resource Workshop*********** ******* ******************************************* ******** ***********)unidad urcdemo;interfaceconst IDS_HELLO = 2; IDS_RC = 1;fin de implementación. |
Esta tecnología se puede utilizar para resolver problemas de almacenamiento de cadenas y problemas de localización de programas en el manejo de errores. ejemplo:
| unidad ufmRCDemo; interfaz utiliza Windows, mensajes, SysUtils, variantes, clases, gráficos, controles, formularios, cuadros de diálogo, StdCtrls; tipo TForm1 = clase (TForm) GroupBox1: TGroupBox Button1: TButton; ; Botón4: TBotón; Button1Click(Remitente: TObject); procedimiento Button2Click(Remitente: TObject); procedimiento Button3Click(Remitente: TObject); procedimiento Button4Click(Remitente: TObject); privado {Declaraciones privadas} público {Declaraciones públicas} fin;var Form1: TForm1;implementationuses urcdemo ;{$R rcdemo.rc}{$R *.dfm}{Usar ventanas API}procedimiento TForm1.Button1Click(Remitente: TObject);var arystr: matriz [0..255] de char;comenzar windows.LoadString(hInstance, IDS_RC, arystr, sizeof(arystr)); TForm1.Button2Click(Remitente: TObject);var arystr: matriz [0..255] de char;begin windows.LoadString(hInstance, IDS_Hello, arystr, sizeof(arystr)); ShowMessage(arystr);end;{Usar función nativa de Delphi}procedimiento TForm1.Button3Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_Hello)) ;fin;procedimiento TForm1.Button4Click(Remitente: TObject);comenzar ShowMessage(LoadStr(IDS_RC));fin;fin. |
Nota: La diferencia entre el formato de 16 bits y el formato de 32 bits. Descarga de instancia: http://www.megspace.com/computers/coreware/
