Получить идентификатор ресурса из области реализации

Question

У меня есть единица, которая имеет resourcestring в своем разделе implementation. Как я могу получить идентификатор resourcestring в другом устройстве?

unit Unit2; 

interface 

implementation 

resourcestring 
    SampleStr = 'Sample'; 

end. 

Если он доступен в разделе interface, я могу написать это:

PResStringRec(@SampleStr).Identifier 

Answer 1

Все объявленные в разделе implementation институциональной единицы является частный к устройству. Это НЕ МОГУТ получить доступ непосредственно с другого устройства. Таким образом, вы будете иметь либо:

1. Подведите resourcestring к interface секции:

   unit Unit2; 
   
   interface 
   
   resourcestring 
       SampleStr = 'Sample'; 
   
   implementation 
   
   end. 
   

   uses 
       Unit2; 
   
   ID := PResStringRec(@Unit2.SampleStr).Identifier; 
   

2. оставить resourcestring в разделе implementation и объявить функцию в разделе interface, чтобы вернуть идентификатор:

   unit Unit2; 
   
   interface 
   
   function GetSampleStrResID: Integer; 
   
   implementation 
   
   resourcestring 
       SampleStr = 'Sample'; 
   
   function GetSampleStrResID: Integer; 
   begin 
       Result := PResStringRec(@SampleStr).Identifier; 
   end; 
   
   end. 
   

   uses 
       Unit2; 
   
   ID := GetSampleStrResID;