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]

procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
Path:=IncludeTrailingBackSlash(Path);
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory<>0) then begin
if IncludeSubDir and (Name<>"..") and (Name<>".")
then FindFiles(Path+Name, Mask, List, IncludeSubDir);
end else begin
if MatchesMask(Name, Mask) then List.Add(Path+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;



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.55 MB
Tiempo: 0.021 c
4-22510
Ilya
2001-10-14 18:06
2002.01.08
Cambiar las propiedades de la impresora


1-22202
T2
2001-12-16 07:12
2002.01.08
Sobre el tema de pequeños archivos ejecutables.


14-22357
Viktor Scherbakov
2001-11-01 12:40
2002.01.08
Recuperacion de fotos


6-22295
Maamed
2001-10-10 09:15
2002.01.08
Importar desde Excel


14-22365
Ketmar
2001-10-16 06:22
2002.01.08
Aquí es interesante: desde Simferopol, ¿estoy aquí solo?





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 French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano 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