秋·風(fēng)

procedure TForm1.InitDatabase;
var
  SQLConn: TSQLite3StaticConnection ;
  SQLTrans: TSQLTransaction;
begin
  if not FileExists('test.db') then
  begin
    SQLConn := TSQLite3staticConnection.Create(nil);
    SQLTrans := TSQLTransaction.Create(nil);
    try
      SQLConn.DatabaseName := 'test.db';
      SQLConn.Transaction := SQLTrans;
      SQLConn.Open;

      // 創(chuàng)建存儲(chǔ)表
      SQLConn.ExecuteDirect(
        'CREATE TABLE embeddings('+
        'id INTEGER PRIMARY KEY AUTOINCREMENT,'+
        'text TEXT NOT NULL,'+
        'vector BLOB NOT NULL,'+    // 二進(jìn)制存儲(chǔ)浮點(diǎn)數(shù)組
        'timestamp DATETIME DEFAULT CURRENT_TIMESTAMP);'
      );

      SQLTrans.Commit;
    finally
      SQLConn.Free;
      SQLTrans.Free;
    end;
  end;
end;