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++里�
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
