Jak uzyskać identyfikator zasobu tabeli łańcuchów dla łańcucha zasobów Delphi?

Question

W Delphi możesz zadeklarować łańcuchy, które mają być przechowywane w tabeli String w sekcji zasobów modułu.

resourcestring 
    rsExample = 'Example'; 

Podczas kompilacji Delphi przydzieli dla niego identyfikator i zapisze go w tabeli ciągów.

Czy istnieje sposób na odzyskanie identyfikatora łańcucha, który jest zadeklarowany jako łańcuch zasobów?

Powodem jest to, że używam pakietu, który działa tak jak gnugettext. Niektóre funkcje w System.pas (jak LoadResString) są zawieszone, więc kiedy używam łańcucha zasobów w wyrażeniu, zostanie on zastąpiony innym ciągiem (tłumaczenie). Oczywiście jest to bardzo przydatne, ale czasami potrzebuję oryginalnego (nieprzetłumaczonego) tekstu łańcucha zasobów.

Kiedy mogę odzyskać identyfikator zasobu łańcucha, mogę wywołać funkcję LoadString API, aby uzyskać oryginalny tekst zamiast przetłumaczonego tekstu.

Answer 1

Aby uzyskać identyfikator zasobu łańcucha zasobów, można rzucić adres łańcucha znaków na typ PResStringRec, a następnie uzyskać dostęp do wartości Identifier.

Spróbuj tej próbki

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