如何将TXT文件作为资源添加到我的EXE文件中？

Question

我有一个包含大约10,000行文本的TXT文件.我想在TMemo中显示这些行.但是我不想在我的程序中分发那个TXT文件.如何将它作为资源WITHIUT使用它集成到我的EXE文件中,stringtable {}因为这需要每行的标识符(所以我将不得不添加10000个标识符).

_

我有Delphi XE

Answer 1

我通常RC为这种资源创建一个文件(基本上是一个文本文件),然后添加像

MyText RCDATA ..\resources\filename.txt

将每个文件/资源​​放入RC文件中.如果RC文件是项目的一部分,它将被编译(到res)并链接到exe.使用我经常使用的资源TResourceStream,即

var ResStream: TResourceStream;
ResStream := TResourceStream.Create(hInstance, 'MyText', RT_RCDATA);

BTW如果RC文件在IDE中创建时没有自动添加到项目中,则添加如下行

{$R 'myExtraRes.res' 'myExtraRes.RC'}

进入项目文件,紧接着uses列表.