Super simple SQLite application for iOS FireMonkey

The following unit creates a table, inserts two records, and queries them back.

Next I'll try to tackle DataSnap... ;)

Enjoy!

unit Unit1;

{$IFDEF FPC}
{$mode objfpc}{$H+}
{$modeswitch objectivec1}
{$ENDIF}

interface

uses
SysUtils, Types, UITypes, Classes, Variants, FMX_Types, FMX_Controls, FMX_Forms,
FMX_Dialogs, FMX_Layouts, FMX_Memo
{$IFDEF FPC}
, iPhoneAll, SQLite3db, SQLite
{$ENDIF}
;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

procedure Log(Msg : String);
begin
{$IFDEF FPC}
NSLog(NSSTR(PChar(Msg)));
{$ENDIF}
end;

{$IFDEF FPC}
function MyDirectory : NSString;
var
paths : NSArray;
fileName : NSString;
begin
paths := NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, True);
fileName := paths.objectAtIndex(0);
Result := fileName;
end;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
{$IFDEF FPC}
var
FileName, SQL : String;
DB : TSQLite;
SL : Classes.TStringList;
{$ENDIF}
begin
{$IFDEF FPC}
FileName := String(MyDirectory.UTF8String)+'/MyDB.sqlite';
Log(FileName);

DB := TSQLite.Create(FileName);

(*
// Drop the table and start from scratch
SQL := 'drop table Customers';
DB.Query(SQL,nil);
*)

// Create the table
SQL := 'create table Customers (Id integer not null, LastName char(25), FirstName char(25))';
DB.Query(SQL,nil);

// Insert a couple of records
SQL := 'insert into Customers values(1, "Ohlsson", "Anders")';
DB.Query(SQL,nil);
SQL := 'insert into Customers values(2, "Intersimone", "David")';
DB.Query(SQL,nil);

// Get the records back and list them in the memo
SL := Classes.TStringList.Create;
SQL := 'select * from Customers';
if DB.Query(SQL,SL) then
Memo1.Text := SL.Text;
SL.Free;

DB.Free;
{$ENDIF}
end;

end.