delphi disqlite3 操作sqlite

查询，

sqltb := sqldb.prepare('select * from a');

if sqltb <> nil then

begin

     while sqltb.step = 100 do

  beign

    id := sqltb.comumn_int(0);

    name := sqltb.comumn_string(1);

 end

end

wal 模式==多进程模式

SqlEnDb.Execute('PRAGMA journal_mode=WAL;');