Hola,
estoy intentando listar en un memo todos los archivos de un directorio y sus subdirectorios internos usando los trucos con recursividad del foro y no lo logro. Pudieran aclarar cual es mi error?
Código Delphi
[-]
var
SR: TSearchRec;
dir:string;
mascara: string;
begin
dir := edit1.Text;
mascara:='*.*';
if FindFirst(edit1.Text + mascara, faAnyFile, SR) = 0 then
begin
repeat
memo1.Lines.Add(SR.Name);
if ((SR.Attr and faDirectory) = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
Dir := Dir + SR.Name+'\';
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
gracias