#include "vcl.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TMemoryStream *a, *b;
.
.
.    void __fastcall TForm1::Button1Click(TObject *Sender)
{
a = new TMemoryStream;
b = new TMemoryStream;
.
.
.
   
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//TMemoryStream *a, *b;可以用CopyMemory(a,b,Size);來做copy嗎?
CopyMemory(a,b,Size);
}

引言: TMemoryStream *a, *b;

  if ((a->Size >= Size) && (b->Size >= Size))
    CopyMemory(a->Memory, b->Memory, Size);