Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

¿Cómo? Encontrar ramas similares


Xtorm   (2001-12-19 10:40) [0]

La forma de obtener la lista completa de archivos y carpetas está permitida en el disco con: \
Solo sin la ayuda de componentes ???



Bizon   (2001-12-19 10:46) [1]

Utilice los archivos FindFirst y FindNext



Dimka Maslov   (2001-12-19 10:52) [2]

procedimiento FindFiles (Ruta, Máscara: cadena; Lista: TStrings; IncludeSubDir: Boolean = True); var SearchRec: TSearchRec; FindResult: Integer; comenzar List.BeginUpdate; prueba Ruta: = IncludeTrailingBackSlash (Ruta); FindResult: = FindFirst (Path + "*. *", FaAnyFile, SearchRec); prueba mientras FindResult = 0 hace con SearchRec comienza si (Attr y faDirectory <> 0) entonces comience si IncludeSubDir y (Nombre <> "..") y (Nombre <> ".") luego FindFiles (Ruta + Nombre, Máscara, Lista, IncludeSubDir); fin de lo contrario comienza si MatchesMask (Nombre, Máscara) luego List.Add (Ruta + Nombre); fin FindResult: = FindNext (SearchRec); fin finalmente FindClose (SearchRec); fin finalmente List.EndUpdate; fin fin



cpp   (2001-12-19 10:53) [3]

Aquí y mi fuente se puede personalizar.

procedimiento ReadAllFiles (DirFrom: string);
var SearchRecOtkuda: TSearchRec;



procedimiento ReadFile (FileName: string);
comenzar
// Lo que queremos y hacemos con el archivo.
fin;

procedimiento ReadDir (DirName: string);
comenzar
// Lo que queremos y hacemos con el directorio.
si (DirName <> ".") y (DirName <> "..") entonces
comenzar
ReadAllFiles (DirFrom + "\" + DirName);
fin;
fin;

comenzar
si FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0 entonces
comenzar
si (faDirectory y SearchRecOtkuda.Attr)> 0 entonces
ReadDir (SearchRecOtkuda.Name)
más
ReadFile (SearchRecOtkuda.Name);
mientras FindNext (SearchRecOtkuda) = 0 do
comenzar
si (faDirectory y SearchRecOtkuda.Attr)> 0 entonces
ReadDir (SearchRecOtkuda.Name)
más
ReadFile (SearchRecOtkuda.Name);
fin;
fin;
fin;



Xtorm   (2001-12-19 11:39) [4]

GRACIAS A todos, todo está funcionando ahora !!!!



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.56 MB
Tiempo: 0.078 c
3-21922
Stas
2001-11-29 12:50
2002.01.08
BDE


14-22405
Kozhanov
2001-11-12 11:53
2002.01.08
Rompecabezas de ingles


4-22513
Oxy2
2001-10-23 23:23
2002.01.08
¿Cómo crear formularios con diferentes controles en una API pura?


1-22023
Delphig
2001-12-13 03:13
2002.01.08
Conmigo fuera de tema ¿Para qué sistema operativo Delphi funciona mejor?


4-22457
Zabl
2001-11-01 13:15
2002.01.08
Problema con dll





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español