从执行区域获取资源字符串标识符

Question

我有一个单元，其implementation部分中有一个resourcestring。我怎样才能在另一个单位获得resourcestring的标识符？

unit Unit2; 

interface 

implementation 

resourcestring 
    SampleStr = 'Sample'; 

end. 

如果是在interface部分提供，我可以写这样的：在一个单位的implementation部分声明

PResStringRec(@SampleStr).Identifier 

Answer 1

一切皆有私人到单位。它不能直接从另一个单位访问。所以，你将不得不采取：

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;