Come ottenere l'ID risorsa tabella stringhe di una risorsa Delphi?

Question

In Delphi è possibile dichiarare le stringhe da memorizzare nella tabella delle stringhe della sezione delle risorse del modulo.

resourcestring 
    rsExample = 'Example'; 

In fase di compilazione, Delphi assegna un ID per esso e lo memorizza nella tabella di stringhe.

C'è un modo per recuperare l'ID di una stringa dichiarata come risorsa?

Il motivo è che utilizzo un pacchetto che funziona proprio come gnugettext. Alcune funzioni in System.pas (come LoadResString) sono agganciate, quindi quando uso una risorsa in un'espressione, verrà sostituita da una stringa diversa (la traduzione). Certo, questo è molto utile, ma a volte ho bisogno del testo originale (non tradotto) del resourcestring.

Quando riesco a recuperare l'ID risorsa della stringa, posso chiamare l'API LoadString per ottenere il testo originale, anziché il testo tradotto.

Answer 1

Per ottenere l'ID risorsa di una risorsa, è possibile eseguire il cast dell'indirizzo della stringa sul tipo PResStringRec quindi accedere al valore Identifier.

Prova questa campione

{$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.