Lectura de una lista de cadenas de un archivo de recursos

Question

Estoy usando Delphi XE Starter. Creé un archivo CCs.RC y agregué ese archivo al proyecto. Una línea típica en mi archivo CCs.RC se ve así:

Danish1cc Text Danish1.cc 

Directamente después de una línea de Implementación He añadido

{$R CCs} 

Cuando trato de leer este archivo en un StringList existente, lo entiendo un mensaje de error [EResNotFound][1]. Aquí está el código que he usado para tratar de leer el archivo:

procedure LoadStringListFromResource(const ResName: string;SL : TStringList); 
var 
    RS: TResourceStream; 
begin 
    RS := TResourceStream.Create(HInstance, ResName, RT_RCDATA); 
    try 
    SL.LoadFromStream(RS); 
    finally 
    RS.Free; 
    end; 
end; 
/// 
LoadStringListFromResource('Danish1cc',MySL) 

Mi meta es la de insertar el archivo en mi EXE y, por supuesto, ser capaz de leerlo :) Gracias por cualquier ayuda.

Answer 1

El tipo de recurso no coincide. En su archivo * .RC usted usa TEXT mientras que en su código usa RCDATA. debe escoger para su archivo .RC * a

Danish1cc RCDATA Danish1.cc 

O debe cambiar

RS := TResourceStream.Create(HInstance, ResName, RT_RCDATA); 

a

RS := TResourceStream.Create(HInstance, ResName, 'Text'); 

Answer 2

Creo que el problema es con esta línea - {$R CCs}

Ha compilado un archivo de recursos, ¿no es ese archivo llamado CCs.res?

si es así que la línea en su código debe ser {$R CCs.res}