casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Come? Trova rami simili


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

Come ottenere l'intero elenco di file e cartelle su disco con: \
solo senza l'aiuto di componenti ???



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

Usa i file FindFirst e FindNext



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

procedura FindFiles (Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True); var SearchRec: TSearchRec; FindResult: Integer; iniziare List.BeginUpdate; provare Percorso: = IncludeTrailingBackSlash (Path); FindResult: = FindFirst (Path + "*. *", FaAnyFile, SearchRec); provare while FindResult = 0 fa con SearchRec iniziare if (Attr and faDirectory <> 0) quindi inizia se IncludeSubDir e (Nome <> "..") e (Nome <> ".") quindi FindFiles (Path + Name, Mask, List, IncludeSubDir); finisce altrimenti se MatchesMask (Name, Mask) quindi List.Add (Path + Name); fine; FindResult: = FindNext (SearchRec); fine; infine FindClose (SearchRec); fine; infine List.EndUpdate; fine; fine;



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

Qui e la mia fonte possono personalizzare

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



procedura ReadFile (FileName: string);
iniziare
// cosa vogliamo e facciamo con il file
fine;

procedura ReadDir (DirName: string);
iniziare
// cosa vogliamo e facciamo con la directory
if (DirName <> ".") e (DirName <> "..") quindi
iniziare
ReadAllFiles (DirFrom + "\" + DirName);
fine;
fine;

iniziare
se FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0 quindi
iniziare
se (faDirectory e SearchRecOtkuda.Attr)> 0 allora
ReadDir (SearchRecOtkuda.Name)
altro
ReadFile (SearchRecOtkuda.Name);
while FindNext (SearchRecOtkuda) = 0 do
iniziare
se (faDirectory e SearchRecOtkuda.Attr)> 0 allora
ReadDir (SearchRecOtkuda.Name)
altro
ReadFile (SearchRecOtkuda.Name);
fine;
fine;
fine;



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

GRAZIE A TUTTI, tutto funziona ora !!!!



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.56 MB
Ora: 0.025 c
1-22085
ProfiUgl
2001-12-19 15:24
2002.01.08
Come leggere le opzioni della riga di comando


1-22034
Alexey_K
2001-12-15 16:35
2002.01.08
Форма


1-22043
Serge
2001-12-18 19:18
2002.01.08
Cancellare un oggetto


1-22105
Gonza
2001-12-19 16:35
2002.01.08
Applicazione MDI ???


4-22468
Zabl
2001-11-02 11:56
2002.01.08
Perdita di memoria





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Inglese Francese tedesco italiano portoghese russo spagnolo