如题，thanks.up http://hi.baidu.com/xinhua_yin/blog/item/a9b4553f2dbe94c67d1e710f.html 自己看看吧 楼上的头像MM真漂亮。 虚拟内存从来没考虑过释放，不过虚拟内存是在系统中自己配置大小，盘符的 找了下帖子这样好像可以 SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF); 谢谢夸奖啊 虚拟内存在程序结束后会自动释放，如果你要运行时释放的话 if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF); Application.ProcessMessages; end;
if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF); Application.ProcessMessages; end; 这么好像释放不了虚拟内存啊，还是谢谢，各位。
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 个字节的长整形指针 begin P:=PLongint(A);// 取的 A 的 ......
