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

Question

我有一个包含大约 10,000 行文本的 TXT 文件。我想在 TMemo 中显示这些行。 但我不想分发我的程序的 TXT 文件。如何使用 stringtable {} 将其作为资源集成到我的 EXE 文件中，因为这需要每行都有一个标识符(因此我必须添加 10000 个标识符)。

_

我有德尔福XE

Answer 1

我通常为此类资源创建一个 RC 文件(基本上是一个文本文件)，然后添加如下行

MyText RCDATA ..\resources\filename.txt

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

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

顺便说一句，如果您在 IDE 中创建 RC 文件时未将其自动添加到项目中，则添加如下行

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

进入项目文件，就在uses列表之后。