[emailx45]

En lugar de usar el método clásico de escanear todos los registros de una tabla con un "WHILE/REPEAT...", utilice una sentencia SQL más eficiente y rápida.

SQL Text => IBQuery, FDQuery, TQuery, UniQuery, etc.. etc.. etc...

' UPDATE <<TABLE>> '
' SET <<Field1 = ValueABC, <<Field2= ValueABC, etc... etc... >>'
' WHERE <<FieldX = XXXXX .... etc. ... etc... >>>

example:

Código Delphi [-]
  try
    try
      if not FDConnection1.InTransaction then
        FDConnection1.StartTransaction;
        //
      FDQuery1.ExecSQL( 'INSERT / DELETE / UPDATE  .......' );
    except
      on E:Exception do
        ShowMessage(E.Message);
    end;
  finally
    if FDConnection1.InTransaction then
      FDConnection1.Commit;
  end;

UPDATE MyTable
SET Name="John", Age=18
Where ((FieldA ='CATALANA') or (FieldA ='NACIONAL')) and (FieldB ='S')