曾經對 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;

---