那就奇了,俺用的也是D7耶。我回去又试了一下,代码如下:
program Project1;
uses
CnMemProf in '..\框架\CnMemProf.pas',
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
mmPopupMsgDlg := True;
mmShowObjectInfo := True;
mmUseObjectList := False;
mmSaveToLogFile := False;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
//////////////////////////////////////////////////////////////////////////////////////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGridEh;
type
TForm1 = class(TForm)
DBGridEh1: TDBGridEh;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
//////////////////////////////////////////////////////////////////////////////////
2005-02-07 16:03:10
程序运行时间: 0 小时 0 分 3 秒。
替换内存管理器前已分配 79 处内存。
可用地址空间: 1024 千字节
未提交部分: 1008 千字节
已提交部分: 16 千字节
空闲部分: 13 千字节
已分配部分: 2 千字节
地址空间载入: 0%
全部小空闲内存块: 1 千字节
全部大空闲内存块: 11 千字节
其它未用内存块: 0 千字节
内存管理器消耗: 0 千字节
内存对象数目: 8。
|