So verwenden Sie eine Zeichenfolgentabelle in einer RC-Datei in Delphi
Ursprünglicher Autor: wangzhidong (Steven Bob) Zeit: Montag, 25. März 2002. Verwenden Sie zunächst Notepad oder Resource Workshop 4.5, um die RC-Datei zu erstellen. Der Aufbau ist wie folgt
| /***************************************************** ***** **************************rcdemo.rcProduziert von Borland Resource Workshop*********** ******* ***************************************** ******** ***********/#include "urcdemo.pas"STRINGTABLE {IDS_HELLO, „Ich freue mich, Sie zu sehen.“IDS_RC, „Diese Programmierung wurde von %s erstellt ."} |
Verwenden Sie dann BRCC.EXE oder BRCC32.exe, um rcdemo.rc in die Datei rcdemo.res zu kompilieren, und benennen Sie dann rcdemo.res in die Datei rcdemo.rc um. Wenn Sie Resource Workshop 4.5 verwenden, wird eine PAS-Einheitsdatei generiert. In diesem Fall lautet der Inhalt von urcdemo.pas wie folgt:
| *************************************************** ***** **************************urcdemo.pasproduziert von Borland Resource Workshop********** ***** ********************************************* ****** ***********)unit urcdemo;interfaceconst IDS_HELLO = 2;implementationend. |
Diese Technologie kann zur Lösung von String-Speicherproblemen und Programmlokalisierungsproblemen bei der Fehlerbehandlung verwendet werden. Beispiel:
| Unit ufmRCDemo;interfaceuses Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) GroupBox1: TGroupBox; Button2: TGroupBox; Button3: TButton ; Button4: TButton-Prozedur Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;implementationuses urcdemo ;{$R rcdemo.rc}{$R *.dfm}{Windows verwenden 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;{Native Delphi-Funktion verwenden}procedure TForm1.Button3Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_Hello)) ;end;procedure TForm1.Button4Click(Sender: TObject);begin ShowMessage(LoadStr(IDS_RC));end;end. |
Hinweis: Der Unterschied zwischen dem 16-Bit-Format und dem 32-Bit-Format. Instanz-Download: http://www.megspace.com/computers/coreware/
