Comportamiento extraño en StringList

[MaMu]

Empezado por droguerman

esa lista no la tienes como variable ni como parámetro entonces debe ser una propiedad, lo más lógico de pensar es que hay algun otro método que accesa a ella y que está modificandola

La tengo declarada como variable aca:

Código Delphi [-]
...
var
  Main: TMain;
  Lista: TStrings;
....

Sino, como tendria que hacerlo?

[Neftali [Germán.Estévez]]

Tal vez sea problema de la rutina que lo rellena; Hay un truco en el ClubDelphi (no recuerdo cual exactamente) que rellena en un TStringList todos los ficheros de un directorio de forma recursiva.
Pruébala y así descartas esa parte de código (para detectar que no tenga errores).

[Mick]

Posibilidad que se me ocurre,

Si se estan creando continuamente directorios o archivos, parece normal que pueda pasar eso , por una simple problema de concurrencia, que se da siempre que varios procesos acceden a los mismos datos, sin realizacion de bloqueos.

Cuando se añade un subdirectorio o archivo nuevo al disco, la lista de archivos de ese directorio se modifica, ya que se tiene que insertar o añadir el nuevo archivo en la lista.

De modo que cuando el programa en delphi esta recorriendo la lista, en el medio de este proceso, esta es modificada, creciendo o disminuyendo o cambiando la lista de archivos de orden y de posicion.

En ese caso lo que habria que hacer es configurar el stringlist para que no admita duplicados:

Lista.Duplicates:= dupIgnore;

De este modo se evita que en el stringlist se añada dos veces el mismo archivo.

Aunque la forma buena de hacer lo que pretendes seria, usar las funciones del api que avisan cuadno hay modificaciones en una carpeta:
FindFirstChangeNotification
FindNextChangeNotification
ReadDirectoryChangesW
WaitForSingleObject
etc..

Saludos

[Delfino]

Has probado el componente JvSearchFiles de la JVCL?

[MaMu]

SOLUCIONADO

Empezado por Delfino

Has probado el componente JvSearchFiles de la JVCL?

Si Delfino, tenia la JVCL instalada y no habia notado este componente, es exelente!!! y lo solucioné con el. El problema del stringlist lo descarte, puesto a que la lista se modifica en otro procedure que no puedo evitar. Asi que lo hice con este componente y me ahorre dolores de cabeza.

Mil gracias a todos.