请教：各位写入数据库Access所用的时间？？？？？？？

Question

我在Delphi 调试环境 写1000 条记录 测试出来是 40m 左右
无论是用TAdotable 或TAdoQuerry 但是奇怪的是在exe 中是10m 左右，问怎么回事？
其他open 之类的略！
for i:=1 to 1000 do
  begin
    query1.SQL.Clear;
    query1.SQL.add('insert into tablang values(:Tim,"ttttttttttttttttt1","bbbbbbbbbbbbbb1","hhhhhhhhhhhhhhhhhhhhhh1")');
    query1.Parameters.ParamByName('Tim').Value :=inttostr(i);
    query1.ExecSQL;
  end;//--------------------------------
count:=table1.RecordCount;
  for i:=1 to 1000 do
  begin
    table1.Append;
    table1.FieldByName('key').AsString:=inttostr(2000+count+i);
    table1.FieldByName('value1').AsString:='value1value1value1value1value1';
    table1.FieldByName('value2').AsString:='value1value1value1value1value1';
    table1.FieldByName('value3').AsString:='value1value1value1value1value1';
  end;
  table1.Post;
还有就是这种用法有没有问题？！！！谢了先！！！

Answer 1

for i:=1 to 1000 do
  begin
    table1.Append;
    table1.FieldByName('key').AsString:=inttostr(2000+count+i);
    table1.FieldByName('value1').AsString:='value1value1value1value1value1';
    table1.FieldByName('value2').AsString:='value1value1value1value1value1';
    table1.FieldByName('value3').AsString:='value1value1value1value1value1';
    table1.Post;  end;

Answer 2

大哥这样消耗的时间会更多！！！！！！！而且Delphi 允许post 一次！

Answer 3

这是个入门级问题呀！delphi中是在debug模式下运行的，用于捕捉异常中断，还包含许多调试信息。
速度当然比较慢。