delphi直接调用sqlitedll的api进行增删减查

在 Delphi 中调用 SQLite 的 API 进行增删改查操作，可以按照以下步骤进行：

下载 SQLite 的 DLL 库文件，可以从 SQLite 官方网站下载（https://www.sqlite.org/download.html）。
将 DLL 文件复制到 Delphi 项目的目录下，或者将其添加到系统环境变量中。
在 Delphi 项目中添加 SQLite 的头文件，可以使用以下代码：

{$IFDEF WIN32} {$DEFINE SQLITE_DLL} {$ENDIF}

{$IFDEF SQLITE_DLL} {$IFDEF WIN32} {$DEFINE SQLITE_WIN32_DLL} {$ENDIF} {$IFDEF WIN64} {$DEFINE SQLITE_WIN64_DLL} {$ENDIF} {$ENDIF}

{$IFDEF SQLITE_DLL} {$IFDEF SQLITE_WIN32_DLL} {$IFDEF FPC} {$LINKLIB libsqlite3.dll} {$ELSE} {$LINKLIB sqlite3.dll} {$ENDIF} {$ENDIF} {$IFDEF SQLITE_WIN64_DLL} {$LINKLIB sqlite3.dll} {$ENDIF} {$ENDIF}

使用 SQLite 的 API 进行增删改查操作，可以使用以下代码示例：

var db: PSQLite3; sql: PAnsiChar; stmt: PSQLite3Stmt; result: Integer; begin // 打开数据库 result := sqlite3_open('test.db', db); if result <> SQLITE_OK then Exit;

try
  // 执行 SQL 语句
  sql := 'CREATE TABLE IF NOT EXISTS MyTable (ID INTEGER PRIMARY KEY, Name TEXT)';
  result := sqlite3_exec(db, sql, nil, nil, nil);
  if result <> SQLITE_OK then
    Exit;

  // 准备 SQL 语句
  sql := 'INSERT INTO MyTable (ID, Name) VALUES (?, ?)';
  result := sqlite3_prepare_v2(db, sql, -1, stmt, nil);
  if result <> SQLITE_OK then
    Exit;

  try
    // 绑定参数
    sqlite3_bind_int(stmt, 1, 1);
    sqlite3_bind_text(stmt, 2, 'Hello, World!', -1, SQLITE_TRANSIENT);

    // 执行 SQL 语句
    result := sqlite3_step(stmt);
    if result <> SQLITE_DONE then
      Exit;
  finally
    // 释放资源
    sqlite3_finalize(stmt);
  end;
finally
  // 关闭数据库
  sqlite3_close(db);
end;

end;

这段代码演示了如何使用 SQLite 的 API 进行创建表和插入数据的操作，通过准备 SQL 语句并绑定参数，最后执行 SQL 语句即可完成操作。其他的增删改查操作也可以按照类似的方式完成