Problema con TStringList variable

[MaMu]

Resulta que, estoy haciendo una busqueda recursiva de archivos, pero... la extensión a buscar, la tomo de una selección de un CheckComboBox, donde figura un listado de extensiones que son tomadas de una base de datos access, lo que permite, agregar o quitar a gusto el tipo de extensión disponible a buscar, que luego se puede seleccionar o no desde el CheckComboBox. El procedimiento de búsqueda es el siguiente:


procedure BuscarArchivos(const directorio, mascara: string;
atributos: Integer; var listado: TStrings);
procedure Buscar(const subdirectorio: string);
var
regBusqueda: TSearchRec;
begin
if FindFirst(subdirectorio + mascara,atributos,regBusqueda) = 0 then
begin
try
repeat
Application.ProcessMessages;
if (regBusqueda.Attr and faDirectory = 0)
or (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
listado.Add(subdirectorio + regBusqueda.Name);
until FindNext(regBusqueda) <> 0;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
if FindFirst(subdirectorio + '*', atributos
or faDirectory, regBusqueda) = 0 then
begin
try
repeat
Application.ProcessMessages;
if ((regBusqueda.Attr and faDirectory) <> 0)
and (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
Buscar(subdirectorio + regBusqueda.Name + '\');
until FindNext(regBusqueda) <> 0;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
end;
begin
Buscar(IncludeTrailingPathDelimiter(directorio));
end;


Pero mi problema radica en que yo tengo que generar una StringList por cada extensión seleccionada, lo que puede ser una sola o cien!!!, yo con la lista lo que hago es tener el listado de archivos a copiar de una directorio a otro, pero no se como crear estas listas si no son fijas, son variables por el usuario segun su seleccion, la llamada al procedimiento es la siguiente:


var
lista: TStrings;
extension: string;
i:integer;
begin
lista := TStringList.Create;
//hay alguna extensión
if OtroForm.CheckListBox1.Items.Count>0
then begin
//me fijo que extensión está tildada
for i:=0 to OtroForm.CheckListBox1.Items.Count-1 do
begin
if OtroForm.CheckListBox1.Checked[i]=True
then begin
extension:=OtroForm.CheckListBox1.ValueFromIndex[i];
BuscarArchivos('C:\', '*.'+extension, faAnyFile, lista);
Justo acá tendría que iniciar la copia de archivos
antes que me cambie la lista por la siguiente extensión?
end
else begin
//abandono, hay extensiones, pero no se seleccionó ninguna
Lista.Free;
Exit;
end;
end;
lista.Free;
end
else begin
//abandono, no hay ninguna extensión
lista.Free;
Exit;
end;
end;


Esta bién la forma como lo hago? Mi pregunta esta marcada en rojo en el código de arriba. Acepto criticas y sugerencias o ideas alocadas como yo.

Saludos y gracias

[Mick]

No veo la necesidad de generar un stringlist por cada extension, porque no añades todos los archivos (tengan la extension que tengan), al mismo stringlist y despues los copias ?, o simplemente puedes vaciar el stringlist que ya tienes antes de empezar con la siguiente extension.

Otra opcion seria copiarlos a medida que se localizan, esta opcion seria mas escalable, porque si se encuentras cientos de miles de archivos, el stringlist ocuparia muchisimo en memoria, lo que podria ser un problema.

Saludos

[Lepe]

Ya que sabes trabajar con un TStringList, complica la cosa un poco más encadenándolos jejeje:

Archivos (TstringList)
|--------- *.txt ( Objeto asociado a este string: un TStringList)
| |------- Archivos encontrados
| |------- Archivos encontrados
| |------- Archivos encontrados
|
|--------- *.jpg ( Objeto asociado a este string: un TStringList)
|------- Archivos encontrados
|------- Archivos encontrados


Creas un TStringList que guarda la extensión que está buscando y el objeto asociado a ese elemento, es a su vez otro StringList.


Archivos.AddObject('*.txt', TStringList.Create);
TStringList(Archivos.Objects[0]).Add('c:\archivo1.txt');



Saludos

[MaMu]

Apa! gracias por las respuestas. Me gusta trabajar con StringList, y ya estoy implementando la forma que me sugirió Lepe, y el resultado es óptimo, tendria que probar que pasa si son 5000 archivos, pero para lo que es, mas de 50 archivos no hay nunca, y la velocidad es rápida, en cuanto a memoria, y bueno, en los huecos le mandare un buen Free cuando ya no la utilice.

Saludos y gracias again