我用了建了一个TMemoryStream,增上了内容再赋给TRichEdit的Lines,结果什么都没有.
procedure Show;
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
//写了一些内容;
Stream.Write(...);
//..... Stream.SaveToFile('jjj.txt');//明明是我刚写入的内容
RichEdit.Lines.LoadFromStream(Stream);//啥都没有了
// RichEdit.Lines.SaveToFile('ccc.txt');//ccc.txt是空的
Stream.free;
end;
procedure Show;
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
//写了一些内容;
Stream.Write(...);
//..... Stream.SaveToFile('jjj.txt');//明明是我刚写入的内容
RichEdit.Lines.LoadFromStream(Stream);//啥都没有了
// RichEdit.Lines.SaveToFile('ccc.txt');//ccc.txt是空的
Stream.free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货