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++里�
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
用DEDE打开一个DLL，找到需要的函数了，但是显示的都是汇编代码，看不懂，恳请高手驻足帮忙啊！
是一个KEYPRESS响应函数，功能是在按下enter后判断输入的字符，我想按照自己的需求跳转，但是
找不到位置，高手 ......
