This is very simple Sqlite 3 wrapper for Delphi and FreePascal. It is based on Tim Anderson's Simplewrapper. I was using his wrapper for long time, include my contributions. However it lost simplicity later and contains lot of duplicated features.
I start with code cleaning and create my own wrapper code as separate project. It have similar interface is Tim's wrapper, but is is very close to Sqlite API.
It is freeware. You can use it without any charge. Please, respect copyright and license notices inside source files.
If you have a questions, contact me at firstname.lastname@example.org. Thanks!
procedure sample; var database: TSqliteDatabase; tab: TSqliteTable; s: string; begin database := TSqliteDatabase.Create('somedatabase.db3'); try database.AddParamInt(':key', 123456); tab := database.GetTable('SELECT * FROM some_table WHERE ROWID=:key'); try while not tab.EOF do begin s := tab.FieldAsString(tab.FieldIndex['ROWID']); //do something with 'S' variable... //... //...then go to next row. tab.next; end; finally tab.free; end; finally database.free; end; end;