| 
  那就奇了,俺用的也是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。 
 |