如何获取Delphi资源字符串的字符串表资源id

Question

在Delphi中，您可以声明要存储在模块资源部分的字符串表中的字符串。

resourcestring
  rsExample = 'Example';

在编译时，Delphi将为它分配一个ID，并将其存储在字符串表中。

有没有一种方法可以检索声明为资源字符串的字符串的ID？

原因是我使用了一个与gnuggettext类似的包。System.pas中的一些函数（如LoadResString）是挂钩的，因此当我在表达式中使用资源字符串时，它将被另一个字符串（转换）所取代。当然，这非常方便，但有时我需要resourcestring的原始（未翻译）文本。

当我能够检索字符串的资源id时，我可以调用LoadString API来获取原始文本，而不是翻译文本。

Answer 1

要获取资源字符串的资源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.