Rollback Sqlite database in Firemonkey Multi device project

Question

How can I rollback my SQLite database after doing a few queries on my iOS/Android device within a Delphi 10 firemonkey multi device project?

I create my database queries using TFDQuery.

Answer 1

procedure TData.RollbackTest;
var
  FD: TFDQuery;
begin
  FD := TFDQuery.Create(nil);
  FD.Connection := fConnection;
  FD.SQL.Add := 'BEGIN;'
  FD.SQL.Add := 'CREATE TABLE test (id INTEGER PRIMARY KEY);'
  FD.SQL.Add := 'ROLLBACK;'
  FD.Prepare;
  FD.ExecSQL;
  FD.Free;
end;