UniSession.Synchronize

[Georges Soares]

Why does executing UniSession.Synchronize () cause error in procedure below?

 

 

For example if the XTelephone contains 1000 registers, the loop passes from 1000 and continues execution without end

    while not XTelefone.eof do
    begin
      inc(vCommit);
      HideMask;
      ShowMask('Importando Telefone: ' + vCommit.ToString + ' de ' + XTelefone.RecordCount.ToString);
      UniSession.Synchronize();
	  
	  Tabela.append;
	  ...
	  Tabela.Post;
	  
	  XTelefone.Next;
	end;

[Georges Soares]

After a few tests and adjustments it seems to work, but I noticed that any errors that happen during insert ai affect Synchronize.

[asapltda]

Good morning, please you can place the improved version of the program, thanks