谁能给一个完整的TFileStream读写文件的例子？(20分)

刚学习TFileStream，但怎么弄也不对，请大家给一个完整简单的例子我学学，谢谢！

看看delphi帮助
可能对你有帮助
呵呵

procedure TFomr1.WriteData (Sender: TObject); r;
Var
FileStream:TFilestream;
Mywriter:TWriter;
i: integer
Begin
FileStream:=TFilestream.create(‘c:/Test.txt’,fmopenwrite);//创建文件流对象
Mywriter:=TWriter.create(FileStream,1024);　//把Mywriter和FileStream联系起来
Mywriter. writelistbegin; 　//写入列表开始标志
For i:=0 to Memo1.lines.count-1 do 　　
Mywriter.writestring(memo1.lines［i］);　//保存Memo组件中文本信息到文件中
Mywriter.writelistend; 　　　　　　　　　//写入列表结束标志
FileStream.seek(0,sofrombeginning);　//文件流对象指针移到流起始位置
Mywriter.free; //释放Mywriter对象
FileStream.free; //释放FileStream对象
End;

有读的代码吗？我读到memo总是乱码。