如何将文件内容读入StringStream中

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  vStringStream: TStringStream;
begin
  vStringStream := TStringStream.Create('');
  with TMemoryStream.Create do try
    LoadFromFile('c:\temp\tools.htm');
    SaveToStream(vStringStream);
  finally
    Free;
  end;
  vStringStream.Position := 0;
  Memo1.Lines.LoadFromStream(vStringStream);
end;

Answer 1

vStringStream.Position := 0; //不能少

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var StrStream:TStringStream;
    TmpMemStream:TMemoryStream;
    s:string;
begin
  StrStream:=TStringStream.Create('');
  TmpMemStream:=TmemoryStream.Create;
  TmpMemStream.LoadFromFile('c:\a.txt');
  TmpMemStream.Position:=0;
  StrStream.CopyFrom(TmpMemStream,TmpMemStream.Size);
  StrStream.Position:=0;
  s:=StrStream.ReadString(StrStream.Size);
  showmessage(s);
end;