在 Firemonkey 多设备项目中回滚 Sqlite 数据库

Question

在 Delphi 10 firemonkey 多设备项目中对我的 iOS/Android 设备进行一些查询后，如何回滚我的 SQLite 数据库？

我使用 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;