为了避免一些客户端中Midas.dll所造成的动态链接库混乱,我声明了MidasLib。
下面的代码运行大约需要2350毫秒。如果我移除uses中的MidasLib声明,它将在仅45毫秒内运行!!
data.xml文件是使用TClientDataSet.SaveToFile方法保存的,有5000个记录,大小约为600Kb。
有人知道如何解释这种奇怪的行为吗?
我可以确认在Delphi XE2 upd 3和Delphi XE3 upd 2中存在此问题。
谢谢。
program Loader;
{$APPTYPE CONSOLE}
{$R *.res}
uses
MidasLib,
System.SysUtils,
Winapi.Windows,
Data.DB,
Datasnap.DBClient;
var
cds : TClientDataSet;
start, stop : Cardinal;
begin
cds := TClientDataSet.Create(nil);
try
start := GetTickCount;
cds.LoadFromFile('c:\temp\data.xml');
stop := GetTickCount;
Writeln(Format('Time elapsed: %dms', [stop-start]));
finally
cds.Free;
end;
end.