delphi – 如何衡量内存使用情况

概述我正在使用Delphi 2009进行编码,我想知道程序使用了多少内存.由于内存管理器在释放对象时不会将未使用的内存释放回 *** 作系统,因此它可能会在内存中缓存以供下次使用.我的问题是,是否有可能知道程序使用了多少内存.它应该排除内存管理器中缓存的内存.谢谢. 我有一个例程,在调试模式下调用FastMM函数来获取内存(正如David建议的那样).当没有安装FastMM时,即在我的发布模式下,我使用以下代 我正在使用Delphi 2009进行编码,我想知道程序使用了多少内存.由于内存管理器在释放对象时不会将未使用的内存释放回 *** 作系统,因此它可能会在内存中缓存以供下次使用.我的问题是,是否有可能知道程序使用了多少内存.它应该排除内存管理器中缓存的内存.谢谢.解决方法 我有一个例程,在调试模式下调用FastMM函数来获取内存(正如DavID建议的那样).当没有安装FastMM时,即在我的发布模式下,我使用以下代码,只需要参考Delphi的System单元：

function GetAllocatedMemoryBytes_NativeMemoryManager : NativeUInt;// Get the size of all allocations from the memory managervar  MemoryManagerState: TMemoryManagerState;  SmallBlockState: TSmallBlockTypestate;  i: Integer;begin  GetMemoryManagerState( MemoryManagerState );  Result := 0;  for i := low(MemoryManagerState.SmallBlockTypestates) to        high(MemoryManagerState.SmallBlockTypestates) do    begin    SmallBlockState := MemoryManagerState.SmallBlockTypestates[i];    Inc(Result,SmallBlockState.AllocatedBlockCount*SmallBlockState.UseableBlockSize);    end;  Inc(Result,MemoryManagerState.TotalAllocatedMediumBlockSize);  Inc(Result,MemoryManagerState.TotalAllocatedLargeBlockSize);end;

我使用XE2,因此您可能需要将NativeUInt更改为Int64.

总结

以上是内存溢出为你收集整理的delphi – 如何衡量内存使用情况全部内容，希望文章能够帮你解决delphi – 如何衡量内存使用情况所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。