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

Question

我在学习TFileStream，但找不到完整的保存memo到文件和从文件中读取到memo的例子，谁能给我一个吗？谢谢！

Answer 1

TCompressionStream，帮助里面同样有列子

Answer 2

fsBct : TFileStream;
begin
  try
    fsBct := TFileStream.Create(fbct,fmOpenRead);
    fsBct.ReadBuffer(BctHead,31);
   Finally
    fsBct.Free;
  end;