Delphi FreeMem 内存释放

释放了结构指针dispose，释放了内存FreeMem，为什么内存中还是有数据？如果用ZeroMemory代替FreeMem的话就成功对Delphi了解的不是很深，希望高手指点！ 结构指针定义如下 PTTest = ^TTest; TTest = record pac: PAnsiChar; end; var A: PTTest; p... 释放了结构指针dispose，释放了内存FreeMem，为什么内存中还是有数据？如果用ZeroMemory代替FreeMem的话就成功对Delphi了解的不是很深，希望高手指点！ 结构指针定义如下 PTTest = ^TTest; TTest = record pac: PAnsiChar; end; var A: PTTest; procedure TForm2.FormCreate(Sender: TObject); var pp: PAnsiChar; begin pp := '123456789'; New(A); // 申请内存空间 GetMem(A^.pac， 100); // 开辟100个内存空间 CopyMemory(A^.pac， pp， 9); // 复制内存 FreeMem(A^.pac); // 释放内存 Dispose(A); // 释放引用 这个应该是把A指向空地址吧？ // 已经释放引用了，并且也 FreeMem 了 // 为什么还会弹出字符串呢？ // 我希望的结果应该是出错，因为A这个结构不存在了！ ShowMessage(string(A^.pac));end;