作了一个文章管理程序,有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);
程序中的代码:
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);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货