流文件只能够用一次么?是不是用了一次以后要“归位”- reset？(10分)

procedure TForm1.Button2Click(Sender: TObject);
var
S: TFileStream;
T: TFileStream;

begin

S := TFileStream.Create('c:/tt.txt', fmOpenRead);
// Memo1.Lines.LoadFromStream(S); // 这段代码如果运行了，T.CopyFrom就无法读了
try
T := TFileStream.Create('c:/tb.txt', fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size);
finally
T.Free;
end
finally
S.Free;
end;

其实可能已经解决了，我加了一段 S.Position := 0, 对么？

对！S.Position := 0

对，在S := TFileStream.Create('c:/tt.txt', fmOpenRead);时，
流的指针已指向最后 ， 当然要提前。//S.Position := 0

看来我的基础没有白学, 55555 好感动哦~~~~

sim_might的说法错误，也给5分，误人子弟啊
S := TFileStream.Create('c:/tt.txt', fmOpenRead)时，流的指针是指向0
是 Memo1.Lines.LoadFromStream(S) 后，流的指针才指向最后