作了一个文章管理程序,有300个txt文件,做成一个res。运行exe,将某篇文章显示在memo中,(具体代码在最后)。但是出现问题,平均每三次就要出现一次乱码,经检查,乱码一边出现在该篇文章的后半部分,大约从这篇文章的1000个字以后是乱码,(每篇文章都在1200个字左右,出现乱码的文章编号没有规律,而且用记事本看res文件是没有乱码的),真是奇怪的问题?
程序中的代码:
var
s:TResourceStream;
begin
Randomize();
key:=Random(299)+1;
s:=TResourceStream.Create(HInstance, 'mytxt'+inttostr(key), 'txt');
Form1.M1.Lines.LoadFromStream(s);
Form1.Edit1.Text:=inttostr(key);

解决方案 »

  1.   

    顺便问一下,如果我要添加一个txt文件到这个资源文件中,在程序中动态添加,用什么函数和方法?对了,如果在发布程序的时候不发布相应的资源文件,只发布exe文件,可否继续正常使用?
      

  2.   

    如果你不发布Res文件,独立运行程序也是可以的,因为编译时,已经把Res文件中的内容编译进去,否则,你怎么可能从 HInstance 中读取数据呢?
      

  3.   

    如果我要添加一个txt文件到这个资源文件中,且是在程序中动态添加,用什么函数和方法?