谁能教我如何使用Tfiletream,讲讲概连,用途,最好有示例(80分)

  • 主题发起人 主题发起人 nuaaliao
  • 开始时间 开始时间
N

nuaaliao

Unregistered / Unconfirmed
GUEST, unregistred user!
谁能教我如何使用Tfiletream,讲讲概连,用途,最好有示例
 
使用很方便:要注意的是读写参数必须是Buf[0], S[1]<br><br>fs: TFileStream;<br>Buf: PChar;<br>S: string;<br><br>GetMem(Buf, 1000);<br><br>fs:= TFileStream.Create('文件名', 打开方式)<br>fs.Read(Buf[0], 1000);<br>S:= '123456';<br>fs.Write(S[1], Length(S));<br>fs.Free;<br><br>FreeMem(Buf);<br><br><br><br><br>
 
tfilestream可以理解成就是放在內存中的文件﹐如上所說﹐用起來很舒服
 
使用TFileStream 很简单,如把一个文件读入一个MEMO1,可以这们写:<br>&nbsp; &nbsp;Var <br>&nbsp; &nbsp; &nbsp; MyStream:TFileStream;<br>begin<br>&nbsp; MyStream:=TFileStream.Create(filename,fmopenread);<br>&nbsp;try &nbsp;<br>&nbsp; Memo1.Lines.LoadFromStream(MyStream);<br>&nbsp;finally<br>&nbsp;MyStream.Free;<br>&nbsp;end;<br>end;
 
多人接受答案了。
 
后退
顶部