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++里�
相关问答：
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
VC++ 中， &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、？
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时， ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
各位大虾，小弟用的是ADO连接ACCESS数据库，用DBGrid显示查询的数据，我做的是个数据采集系统，根据不同的地址把数据放在ACCESS数据库中不同的表里面，现在我想查询某一段时间内所有表内的数据，并且在DBGrid中显示� ......
