Método [MergeChangeLog]

Método [MergeChangeLog]

  fevereiro 05, 2020    Ana Paula Novello

---

O nome do método já diz tudo, a mesclagem de todas as alterações contidas no TClientDataSet (inclusão, alteração e exclusão). O que resulta em um arquivo bem pequeno novamente (Apenas os registros e todas as mudanças aplicadas neles). Este método não deve ser executado em multi-camadas, pois ele vai quebrar todas as possíveis chamadas ao método ApplyUpdates que tente fazer.

Dica antes de executar o método MergeChangeLog, é recomendável verificar o valor de ChangeCount, que representa o número de alterações. Apenas se ChangeCount for maior que zero é que você deve executar o método MergeChangeLog.

procedure TFSistema.BtnTesteMergeChangeLogClick(Sender: TObject);
begin
  if ClientDataSet1.ChangeCount > 0 Then begin
    ClientDataSet1.MergeChangeLog ;
    ClientDataSet1.SaveToFile('Configuracoes.xml');
  end;
end;