Delphi：对TMemoryStream.Memory错误的理解

TMemoryStream 的 Position 变化后, 我曾经认为它的 Memory 属性也会变化; 只怪不看源码, 只想当然!

procedure TForm1.FormCreate(Sender: TObject);
var
  Stream1,Stream2: TMemoryStream;
  pw: TPtrWrapper;
begin
  Stream1 := TStringStream.Create('1234567890');
  Stream2 := TStringStream.Create('ABCDEFGHIJ');

  //想把 Stream1 变成 123DEFG890
  pw := TPtrWrapper.Create(Stream2.Memory);
  pw := TPtrWrapper.Create(pw.ToInteger + 3);

  Stream1.Position := 3;
  Stream1.Write(pw.ToPointer^, 4);

  ShowMessage(TStringStream(Stream1).DataString); //123DEFG890

  Stream1.Free;
  Stream2.Free;
end;

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索memory
， stream
， position
， create
变化
，以便于您获取更多的相关知识。