Wie bekommt man ResourceString ID wenn man den String hat?

[GuenterS]

Es geht auch anders.

Es ist wichtig, dass man wirklich die Adresse des Resourcestrings übergibt,

Delphi-Quellcode:

function getIdentifier(AP: Pointer): integer;
begin
  Result := PResStringRec(AP).Identifier;
end;

Delphi-Quellcode:

...

resourcestring
   sMessage1 = 'Message1';

var
   _Identifier: integer;

_Identifier := getIdentifier(@sMessage1);

...