Ressource konnte nicht Datei 'Rechte'

Question

gefunden

In Formcreate Prozedur ich schreiben:

var f: TResourceStream; 
    begin 
    // load data about rights from rights.txt resource file 
    f := TResourceStream.create(Hinstance, 'rights', PChar('RT_RCDATA')); 
    try 
    LoadFromStream(f); 
    finally 
    f.free; 
    end; 

und erhalten Fehler:

Project1.exe raised exception class ERESNotFound with message 'Resource rights not found'. 

wenn ich ändern 'Rechte' Dateipfad auf:

'rights.txt'   or 
'D:\Example\rights.txt' or 
'D:\Example\rights' 

Ich bekomme den gleichen Fehler!

rights.txt-Datei Ich finde beide im Projektordner und in win32 \ debug \ project1.exe Ordner, aber der gleiche Fehler tritt auf.

UPDATE 1

PopupMenu with access rights

rights.txt file for loading popupmenu

was diese undefinierten simbols in rights.txt Datei sein?

Answer 1

Sie müssen den ResType Parameter zu RT_RCDATA statt PChar('RT_RCDATA')

f := TResourceStream.create(Hinstance, 'rights', RT_RCDATA); 

Die RT_RCDATA definiert in System.Types Einheit ändern, wie

const 
    RT_RCDATA  = PChar(10); 

folgen So kann man es auch so

f := TResourceStream.create(Hinstance, 'rights', PChar(10)); 

verwenden