Código Delphi [-] if (SR.Name[1] <> '.') and ((SR.Attr and faDirectory) = faDirectory) then
if (SR.Name[1] <> '.') and ((SR.Attr and faDirectory) = faDirectory) then