Paulo Casagrande wrote:
> A sua dica já foi meio caminho andado :)
>
> Criei um *.RES com o brcc32.exe - OK
> mas agora estou com dificuldade para carregar
> do res para Stream para depois do Stream para TstringList :(
> Dá Abstract Error na linha conforme abaixo...
>
> {$R TEXTO.RES}
> constructor TcNFeINU.Create;
> var
> Res: TResourceStream;
> xyz: TStream;
> begin
> inherited Create;
> Fmodelo := TStringList.create;
> xyz := TStream.create;
TStream é uma classe abstrata, você deve ter recebido um warning durante
a compilação te avisando disto.
> Res := TResourceStream.Create(Hinstance, 'TEXTO', 'TXTFILE'); // Até
> aqui foi beleza <<<<
> Res.SaveToStream(xyz); // Nessa linha da Abstract Error <<<<
> Fmodelo.LoadFromStream(xyz);
res já é um stream, utilize-o ao invés do "xyz".
--
Joao Morais
> Res.Free;
> xyz.Free;
> end;
>
> PS: Testei com REs.SaveToFile e gravou beleza ( mas não é isso que eu
> quero.)
>
>> Não me lembro a sintaxe, mas você pode usar diretivas de compilação
>> para isso.
>> Da mesma que em um TForm você tem a diretiva {$R *.DFM}
>> Pesquise sobre isso.
>>
>> Luciano Calenzani Simões
>>
>
>> Bom dia a todos...
>>
>> Estou criando uma classe e tenho a necessidade de trabalhar com um
>> arquivo texto.
>> Até hoje eu fiz assim:
>> ...
>> Texto: TstringList;
>> begin
>> Texto := TstringList. create;
>> Texto.add(' nonononononononon ' );
>> Texto.add(' nonononon ' );
>> Texto.add(' nonononononon ' );
>> Texto.add(' nonononon ' );
>> ...
>>
>> Mas é pouco produtivo e não quero carregar o texto em run time
>> (Texto.loadFrom. ...)
>>
>> Minha pergunta:
>>
>> Tem como eu criar o texto e deixar em um txt e quando eu compilar a
>> aplicação ele
>> importa esse texto todo para o TStringList?
>>
>> Ou existe algum semelhante ao TEXT ENDTEXT do clipper (acho que era
>> isso) que criava um bloco com o texto?
>>
>> []'s
>>
>
>
> ------------------------------------
>
