Mi aplicacion estas mui lenta
Quando hago una busca en un universo de unos 2.000 archivo(.pas y .dfm), se queda mui lenta mi aplicacion. Abajo mis codigos:
Mi procedure de busca Código:
procedure TForm1.BuscaTexto(path: string; const FileMask, tipo, tabela: string); Código:
procedure TForm1.VarrerClick(Sender: TObject); |
Así a simple vista me parece que haces un bucle que repites tantas veces como ficheros hay. ¿Puede ser?
|
Hola Paulao.
La acción que realiza el algorítmo, leer cada línea de cada archivo .pas y .dfm hasta encontrar la palabra buscada, como toda búsqueda secuencial, es intrínsecamente lenta y por supuesto su tiempo de ejecución está relacionada en forma directa a la cantidad de archivos a revisar. Creo también, que haber modificado la función por procedimiento e incluir la carga del TListBox dentro de la misma hace que todo sea un poco más lento. Así que retomando la función original, yo probaría si mejora el rendimiento de este modo:
LLamada: Pero como te mencioné arriba, las búsquedas secuenciales son de por sí lentas y si sumamos a eso la lectura secuencial del DataSet... Un saludo. |
La franja horaria es GMT +2. Ahora son las 22:38:34. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi