Cita:
|
Empezado por quimeras
// Tomado de Trucomanía
|
Guau!
Función peligrosa e incorrecta:
Si de por sí es poco recomendable definir funciones que creen objetos y los devuelvan como resultado, más lo es cuando la función es recursiva. En cada llamada del galimatías de arriba se crea una instancia de TStringList que, desde luego, jamás se destruye. De hecho en la llamada recursiva ni siquiera se asigna el resultado a nada.
Si quisiera usar esta función para listar recursivamente los archivos de un directorio tendría que hacer algo como:
Código Delphi
[-]
var
Lista: TStrngList;
begin
Lista := RastreaDir('C:\Mis Documentos');
Memo1.Lines.AddStrings(Lista);
Lista.Free;
end;
liberando el objeto que se crea dentro de la función. Claro que esto sólo liberaría un objeto y no todos los que se crean en las llamadas recursivas que se pierden en el limbo. Y, claro está, el memo solo listaría los archivos de primer nivel ya que los de los subdirectorios se perdieron en el olvido.
// Saludos