Código Delphi [-] FOR N := 0 TO Data.NumCount DO BEGIN HaceAlgoConDato (Data.Elemento[N]); { De vez en cuando procesa mensajes para que no se cuelgue: } IF N MOD 10 = 0 THEN Application.ProcessMessages END;
FOR N := 0 TO Data.NumCount DO BEGIN HaceAlgoConDato (Data.Elemento[N]); { De vez en cuando procesa mensajes para que no se cuelgue: } IF N MOD 10 = 0 THEN Application.ProcessMessages END;