在Delphi中,您可以声明要存储在模块资源部分的String Table中的字符串.
- resourcestring
- rsExample = 'Example';
在编译时,Delphi将为其分配一个ID并将其存储在String表中.
有没有办法检索声明为resourcestring的字符串的ID？
原因是我使用的包与gnugettext一样. System.pas中的某些函数(如LoadResString)被挂钩,因此当我在表达式中使用resourcestring时,它将被替换为不同的字符串(转换).当然,这非常方便,但有时我需要资源字符串的原始(未翻译)文本.
解决方法
要获取resourcestring的资源ID,可以将字符串的地址强制转换为
PResStringRec类型,然后访问Identifier值.
试试这个样本
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- resourcestring
- rsExample = 'Example';
- begin
- try
- Writeln(rsExample);
- Writeln(PResStringRec(@rsExample)^.Identifier);
- except
- on E: Exception do
- Writeln(E.ClassName,': ',E.Message);
- end;
- readln;
- end.