evo ovako:
Code:
var
FindResult: integer;
SearchRec : TSearchRec;
begin
...
FindResult := FindFirst(Path + '*.*', faAnyFile - faDirectory, SearchRec);
while FindResult = 0 do
begin
//radis nesto sa fajlom SearchRec.Name
FindResult := FindNext(SearchRec);
end;
...
end;
promeni ono *.* u masku fajla koji trazis, path ti je ime direktorijuma.
i ako mene pitas, ovo je sasvim zadovoljavajuce brzine.
pozdrav
Ride the rainbow, crack the sky
DIY gitare, pojacala i efekti
www.diy-fever.com