Cómo recusively lista de todos los archivos en los directorios.
procedimiento GetFiles(Resultado: TStrings Ruta: string IncludePath: Boolean = False)
var
& nbsp & nbsp R: Integer
& nbsp & nbsp SR: TSearchRec
& nbsp & nbsp ThePath: string
begin
& nbsp & nbsp Assert(Resultado <> nil, el Resultado es Nill')
& nbsp & nbsp ThePath := ExtractFilePath(Ruta de acceso)
& nbsp & nbsp ThePath := IncludeTrailingBackSlash(ThePath)
& nbsp & nbsp R := FindFirst(Ruta, faAnyFile, SR)
& nbsp & nbsp mientras que R = 0
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si IncludePath, a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado.Agregar(ThePath SR.Nombre)
& nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado.Agregar(SR.Nombre)
& nbsp & nbsp & nbsp & nbsp R := FindNext(SR)
& nbsp & nbsp final
& nbsp & nbsp FindClose(SR)
fin
Getfiles
Getfiles : Multi-millones de consejos para hacer su vida mas facil.
Como recusively lista de todos los archivos en los directorios.
procedimiento GetFiles(Resultado: TStrings Ruta: string IncludePath: Boolean = False)
var
& nbsp & nbsp R: Integer
& nbsp & nbsp SR: TSearchRec
& nbsp & nbsp ThePath: string
begin
& nbsp & nbsp Assert(Resultado <> nil, el Resultado es Nill')
& nbsp & nbsp ThePath := ExtractFilePath(Ruta de acceso)
& nbsp & nbsp ThePath := IncludeTrailingBackSlash(ThePath)
& nbsp & nbsp R := FindFirst(Ruta, faAnyFile, SR)
& nbsp & nbsp mientras que R = 0
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si IncludePath, a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado.Agregar(ThePath SR.Nombre)
& nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado.Agregar(SR.Nombre)
& nbsp & nbsp & nbsp & nbsp R := FindNext(SR)
& nbsp & nbsp final
& nbsp & nbsp FindClose(SR)
fin
