Làm thế nào để có được id tài nguyên bảng chuỗi của một tổ chức Delphi?

Question

Trong Delphi bạn có thể khai báo các chuỗi được lưu trữ trong bảng chuỗi của phần tài nguyên của mô-đun.

resourcestring 
    rsExample = 'Example'; 

Tại thời gian biên dịch, Delphi sẽ gán ID cho nó và lưu trữ trong bảng chuỗi.

Có cách nào để truy xuất ID của chuỗi được khai báo là tổ chức lại không?

Lý do là tôi sử dụng gói hoạt động giống như gnugettext. Một số hàm trong System.pas (như LoadResString) được nối, vì vậy khi tôi sử dụng một tổ chức lại trong một biểu thức, nó sẽ được thay thế bằng một chuỗi khác (bản dịch). Tất nhiên, điều này rất tiện dụng, nhưng đôi khi tôi cần văn bản gốc (chưa được dịch) của tổ chức lại.

Khi tôi có thể truy xuất id tài nguyên của chuỗi, tôi có thể gọi API LoadString để lấy văn bản gốc, thay vì văn bản đã dịch.

Answer 1

Để lấy id tài nguyên của tổ chức lại, bạn có thể truyền địa chỉ của chuỗi đó theo loại PResStringRec sau đó truy cập vào giá trị Identifier.

Hãy thử mẫu này

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