Topic: Lazarus and SQLite and WinCE
Hello, I have installed the lib on Lazarus and I wrote this code:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Sqlite3ds, db;
type
{ TForm1 }
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
DataBase: TSqLite3DataSet;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
DataBase:= TSqlite3Dataset.Create(nil);
with DataBase do
begin
FileName :='DataBase.db';
TableName :='NewTable';
if not FileExists(FileName) then
begin
with FieldDefs do
begin
Clear;
Add('Integer',ftInteger,0,False);
Add('String',ftString,0,False);
Add('Bool',ftBoolean,0,False);
Add('Float',ftFloat,0,False);
Add('Word',ftWord,0,False);
Add('DateTime',ftDateTime,0,False);
Add('Date',ftDate,0,False);
Add('Time',ftTime,0,False);
end;
CreateTable;
end;
end;
end;
initialization
{$I unit1.lrs}
end.
This code compiles correctly, but when I execute it in Windows CE it generates the following error:
What I need?