procedure TAndroidModule1.btnSQliteClick(Sender: TObject);
var s: String;
i: Integer;
begin
jSqliteDataAccess1.DataBaseName := 'my.db';
jSqliteDataAccess1.OpenOrCreate(jSqliteDataAccess1.DataBaseName);
jSqliteDataAccess1.CreateTable('create table if not exists jedan (id int primary key, name text not null)');
If jSqliteDataAccess1.InsertIntoTable('insert into jedan (id, name) values (10, ''dog'')') then
lvLog.Add('Row inserted.')
else
lvLog.Add('Row not inserted.');
s := jSqliteDataAccess1.Select('select * from jedan');
lvLog.Add('Res: '+s);
i := jSqliteCursor1.GetRowCount;
lvLog.Add('Rowcount: '+IntToStr(i));
s := jSQLiteDataAccess1.GetFullPathDataBaseName();
lvLog.Add(s);
end;