lazarus开发：提升sqlite数据插入速度

-- 假设我们有一个名为'my_table'的表，它有两个字段：'id'和'data'。
-- 以下SQL语句使用预处理语句来批量插入数据，从而提高插入速度：
 
INSERT INTO my_table (id, data)
VALUES (?, ?);
 
-- 在Lazarus中，你可以使用SQLite的预处理功能来构建参数化查询，例如：
 
var
  Stmt: TSQLitePreparedStatement;
  DB: TSQLiteDatabase;
  StartTime, EndTime: TDateTime;
  i: Integer;
begin
  // 初始化数据库对象并打开数据库
  DB := TSQLiteDatabase.Create(DB_FILENAME);
  DB.Open;
 
  // 准备SQL语句
  Stmt := DB.Prepare('INSERT INTO my_table (id, data) VALUES (?, ?);');
 
  // 开始计时
  StartTime := Now;
 
  // 绑定参数并执行插入
  for i := 1 to NUM_ROWS do
  begin
    Stmt.BindParameter(1, i);
    Stmt.BindParameter(2, 'Some data for row ' + IntToStr(i));
    Stmt.Execute;
  end;
 
  // 释放预处理语句资源
  Stmt.Free;
 
  // 结束计时
  EndTime := Now;
 
  // 输出插入数据所需时间
  Writeln('Insertion took: ', MilliSecondsBetween(EndTime, StartTime), ' ms');
 
  // 关闭数据库连接
  DB.Free;
end;

这段代码演示了如何在Lazarus中使用预处理语句来批量插入数据到SQLite数据库。通过使用预处理语句，我们可以重用查询的解析工作，从而减少了每次插入操作的时间，这对于大量数据的插入是非常有效的。