主题：[原创]数据库与全局变量读写性能测试

以下内容为程序代码:

1 runmode:1;
2
3 starttime:=timetot0(currenttime);
4
5 for i=1 to 5000 do begin
6     extgbdataset(numtostr(i,0),i);
7 end
8
9 endtime:=timetot0(currenttime);
10
11 msgout(1,'extgbdata write time : '+numtostr(endtime-starttime,0));
12

以下内容为程序代码:

1 runmode:1;
2
3 starttime:=timetot0(currenttime);
4
5 for i=1 to 5000 do begin
6     debugfile('c:\extgbdata.txt',numtostr(extgbdata(numtostr(i,0)),0),0);
7 end
8
9 endtime:=timetot0(currenttime);
10
11 msgout(1,'extgbdata write time : '+numtostr(endtime-starttime,0));

以下内容为程序代码:

1 runmode:1;
2
3 starttime:=timetot0(currenttime);
4
5 database('provider=microsoft.jet.oledb.4.0;data source=test.mdb');
6
7 for i=1 to 5000 do begin
8     sql:='insert into test(key1,value1) values("'+numtostr(i,0)+'",'+numtostr(i,0)+')';    
9     dbexecute(sql);
10 end
11
12 endtime:=timetot0(currenttime);
13
14 msgout(1,'database write time : '+numtostr(endtime-starttime,0));
15

以下内容为程序代码:

1 runmode:0;
2
3 starttime:=timetot0(currenttime);
4
5 database('provider=microsoft.jet.oledb.4.0;data source=test.mdb');
6
7 for i=1 to 5000 do begin
8     sql:='select * from test where key1='+numtostr(i,0);    
9     msgout(1,sql);
10     dbtable2(sql);
11     value:=dbvalue('value1');    
12     debugfile('c:\database.log',numtostr(value,0),0);
13 end
14
15 endtime:=timetot0(currenttime);
16
17 msgout(1,'database write time : '+numtostr(endtime-starttime,0));
18