Veze, linkovi
Kompjuter biblioteka
Korpa

Preporučujemo

Programiranje Alterinih FPGA čipova

Programiranje Alterinih FPGA čipova

Naučite programiranje, priručnik koji prija mozgu

Naučite programiranje, priručnik koji prija mozgu

KAKO DA – pretraživanje fajlova, Delphi

Pregleda (30 dana / ukupno): 8 / 2041

Za pretraživanje fajlova određenog naziva fajla (kao na primer C:\WINDOWS\*.INI), možemo iskoristiti funkcije FindFirst i FindNext i proceduru FindClose. Da bi mogli da koristimo ove funkcije koristićemo tip zapisa (record) TSearchRec koji između ostalog sadrži i informacije o fajlu potrebne za pretraživanje. U sledećoj strukturi zapisa TSearchRec, možete videti koje informacije nosi ovaj zapis, i koje su potrebne funkcijama FindFirst i FindNext. Najvažniji podatak je Name (naziv fajla - string) koji sadrži dugačko ime fajla, bez putanje do fajla.

type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData; // Dodatne informacije
end;

Podatak Time predstavlja informaciju o DOS sistemskom vremenu, poslednje modifikacije fajla. Možete konvertovati ovu vrednost u tip podatka TDateTime koristeći funkciju FileDateToDateTime.
Za samo pretraživanje iskoristićemo sledeći programski kod:

var
SearchRec: TSearchRec;
begin
if FindFirst(’C:\WINDOWS\*.INI’, attributes, SearchRec) = 0 then
begin
repeat
// Ovde obradjujemo svaki pronadjeni fajl.
// Informacije o svakom fajlu
// nalaze se u zapisu SearchRec.
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Ukoliko funkcija FindFirst vrati nulu (0), to znači da je pronađen najmanje jedan fajl koji zadovoljava postavljeni kriterijum. Potom koristimo funkciju FindNext da bi dobili informacije o sledećim fajlovima koji takođe zadovoljavaju postavljeni kriterijum. Ova funkcija takođe vraća nulu ukoliko pronađe sledeći fajl. Kada pređemo sve fajlove u jednom folderu, potrebno je da zatvorimo pretraživanje pozivom procedure FindClose, kojom oslobađamo rezervisane resurse zapisa koje smo alocirali funkcijom FindFirst. Ukoliko je atribut nula (0), funkcije FindFirst i FindNext će pretraživati samo “normalne” fajlove, a ne i one koji su obeleženi kao: Archive, Read-only, Hidden, System, Directory, Volume.

Pripremio: Milenko Kusurović

 

         
Twitter Facebook Linkedin Pinterest Email
         

Budite prvi koji će ostaviti komentar.

Ostavite komentar Ostavite komentar

 

 

 

Veze, linkovi
Linkedin Twitter Facebook
 
     
 
© Sva prava pridržana, Kompjuter biblioteka, Beograd, Obalskih radnika 4a, Telefon: +381 11 252 0 272