Firedac + SQLite et détection de modification

Bonjour,
Il y a la fonction SQLite total_changes, qui ne prend pas tout en compte non plus mais renseigne sur les modifications de la connexion et pas seulement la dernière.

Sur le site d’Embarcadero, j’ai trouvé ce code qui va me permettre de tracer les modifications ainsi que de mettre à jour ma variable FModified :mouarf:

Code:

---

1 2 3 4 5 6

procedureTForm1.DoUpdate(ADB:TSQLiteDatabase;AOper:Integer;constADatabase,ATable:String;ARowid:sqlite3_int64);begin Memo1.Lines.Add(Format('%d - %s - %s - %u', [AOper, ADatabase, ATable, ARowid])); end; FDConnection1.Connected := True; TSQLiteDatabase(FDConnection1.ConnectionIntf.CliObj).OnUpdate := DoUpdate;

---