如何把文本文件作为资源加入到工程之中?

Question

我想把文本文件加到工程之中以起到保秘的作用.
我的方法是新建一个rc文件,在其中写一行
cc  TEXT  cc.txt目的是把cc.txt作为资源加入到exe或dll中,在其中以资源方式进行访问.
请教,如何读出cc中的内容.

Answer 1

var
    res:tresourcestream;
begin
  If not FileExists('c:\windows\temp\cc.txt') Then Begin
    res:=tresourcestream.create(Hinstance,'Text','cc');
    res.SaveToFile('c:\windows\temp\cc.txt');
    res.Free;
    end;
end;//读完后删除

Answer 2

把cc.txt内容放到cc.rc文件中如
STRINGTABLE
1,"这是第一行"
2,"这是第一行"
3,"这是第一行"
4,"这是第一行"
5,"这是第一行"
END
用DELPHI BIN目录下的BRCC32.EXE编译成.RES文件,资源文件
然后 在程序里面用
implementation
{$R cc.res}就可以程序里掉用了,
LoadStr(i)就可以了
edit1.text:=LoadStr(1);

Answer 3

用API函数
FindResource
LoadResource

Answer 4

huayuxing(huayuxing) 的方法可行,txt文件的格式中少了begin.1.编辑cc.txt
stringtable
begin
  1,"red"
  2,"blue"
  3,"green"
end2.改名cc.txt为cc.rs3.执行brcc32 cc.rs生成cc.res4.工程中在{$R *.dfm}后面加入{$R cc.RES}5.调用LoadStr(i)就可以把字符串资源读出来了.

Answer 5

zdcnow(磁效应) 
随手打的，没注意，谢谢帮我纠正

Answer 6

我要用的不是一个字符串表,而是一个文本文件cnssk(小柯) 的办法,总是遇到找不到资源的错误

Answer 7

cnssk(小柯) 的办法可行,只是他把后两个参数用反了.
OK,现在结贴

Answer 8

呵呵,原来不是你要的.
这个类似,以前做的,exe文件,道理一样,顺便放上来.var
  rs:TResourceStream;
begin
  rs:=TResourceStream.Create(hinstance,'helloworldexe','exefile');
  rs.SaveToFile('helloworld.exe');
  rs.free;
  //execute
  //delete file
end;

Answer 9

var
    res:tresourcestream;
....
..
implementation{$R *.DFM}
{$R cc.res}
...
begin
  If not FileExists('c:\windows\temp\cc.txt') Then Begin
    res:=tresourcestream.create(Hinstance,'cc','Text');
    res.SaveToFile('c:\windows\temp\cc.txt');
    res.Free;
    end;
end;//读完后删除

Answer 10

var
 ...
应该在Begin 前面!!!

Answer 11

cc.res是资源文件名，你要看你的资源文件名是什么