Ĺadny brzuch
Witam :)
Czy ktoś może mi pomóc w rozwiązaniu problemów z wyszukiwaniem wraz z podkatalogami? Próbowałem zrobić to w ten sposób (kod znalazłem w Sieci):
procedure DoSearch(path:string); var Dirs,Files:array of string; SR:TSearchRec; FileResult,i:integer; loop:integer; procedure SearchForFiles(p:string); var _i:integer; begin if p[length(p)]<>'\' then p:=p+'\'; FileResult:=FindFirst(p+'*.*',faAnyFile,sr); while FileResult=0 do begin if (SR.Name<>'..')and(Sr.Name<>'.') then begin if ((SR.Attr and faDirectory) = faDirectory) then begin SetLength(Dirs,length(Dirs)+1); Dirs[High(Dirs)] := SR.Name; end else begin SetLength(Files,length(Files)+1); Files[High(Files)]:=SR.Name; end; end; FileResult:=FindNext(sr); end; while loop<= high(dirs) do begin showmessage(p+dirs[loop]); SearchForFiles(path+dirs[loop]); inc(loop); end; end; begin loop:=0; SearchForFiles(path); for i:=low(Files) to high(files) do form1.files.Lines.Add(files[i]); for i:=low(dirs) to high(dirs) do form1.dirs.Lines.Add(dirs[i]); end;
ale nie działa...
POMOCY!
ale nie dziala
Co nie dziala? Jakies objawy, bledy kompilacji? Rozjasn troche te sprawe.
Co nie dziala? Jakies objawy, bledy kompilacji? Rozjasn troche te sprawe.
Wyszukiwanie- http://forum.ks-eksp...34&#entry339834 <_<
Kopiowanie- CopyFile();
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Czy ktoś może mi pomóc w rozwiązaniu problemów z wyszukiwaniem wraz z podkatalogami? Próbowałem zrobić to w ten sposób (kod znalazłem w Sieci):
procedure DoSearch(path:string); var Dirs,Files:array of string; SR:TSearchRec; FileResult,i:integer; loop:integer; procedure SearchForFiles(p:string); var _i:integer; begin if p[length(p)]<>'\' then p:=p+'\'; FileResult:=FindFirst(p+'*.*',faAnyFile,sr); while FileResult=0 do begin if (SR.Name<>'..')and(Sr.Name<>'.') then begin if ((SR.Attr and faDirectory) = faDirectory) then begin SetLength(Dirs,length(Dirs)+1); Dirs[High(Dirs)] := SR.Name; end else begin SetLength(Files,length(Files)+1); Files[High(Files)]:=SR.Name; end; end; FileResult:=FindNext(sr); end; while loop<= high(dirs) do begin showmessage(p+dirs[loop]); SearchForFiles(path+dirs[loop]); inc(loop); end; end; begin loop:=0; SearchForFiles(path); for i:=low(Files) to high(files) do form1.files.Lines.Add(files[i]); for i:=low(dirs) to high(dirs) do form1.dirs.Lines.Add(dirs[i]); end;
ale nie działa...
POMOCY!
ale nie dziala
Co nie dziala? Jakies objawy, bledy kompilacji? Rozjasn troche te sprawe.
Co nie dziala? Jakies objawy, bledy kompilacji? Rozjasn troche te sprawe.
Wyszukiwanie- http://forum.ks-eksp...34&#entry339834 <_<
Kopiowanie- CopyFile();