VC Delphi 内存速度比较 - VC/MFC / 非技术类

VC 控制台程序:

#include <iostream>

using namespace std;

int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickCount();
for(int i = 0; i < 1000000; i++)
{
PBYTE p = new BYTE[def_buffer];
memcpy(p, b, def_buffer);
delete []p;
}
t = GetTickCount() - t;
cout << "耗时 = " << t << endl;
system("PAUSE");
return 0;
}


Delphi 控制台程序:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

const
  buf_size = 1024 * 4;

var
  i: Integer;
  t: Cardinal;
  a: array[0..buf_size-1] of byte;
  p: PByte;
begin
  FillChar(a, sizeof(a), 0);
  t := GetTickCount();
  for i := 1 to 1000000 do
  begin
  GetMem(p, buf_size);
  Move(a, p^, buf_size);
  FreeMem(p);
  end;
  t := GetTickCount() - t;
  Writeln('耗时 = ', t);
  Readln;
end.

测试结果:
VC 显示 1400左右
Delphi 7: 700-800 左右


vc 有更快的内存分配和考贝函数吗?

---

VC2008 Release 版本

---

使用Release版本进行优化...

---

怎么优化?

---

->设置->c/c++里�