Izlistavanje sadrzaja foldera

[ Bojann @ 03.07.2004. 21:24 ] @

Kako da sadrzaj odredjenog direktorijuma iscitam u listbox?

[ Night @ 04.07.2004. 00:16 ] @

FindFirst, FindNext i FindClose su funkcije koje se koriste za takve stvari, ako hoces i sadrzaje poddirektorija onda ces morati i rekurziju koristiti.

[ reiser @ 04.07.2004. 01:23 ] @

Code:

procedure FeedToListBox(const path, FileExt : String);
var
  SearchRec : TSearchRec;
begin
  If FindFirst(Path + FileExt, $0000003F - $00000010, SearchRec) = 0 Then
    repeat
       // Ovde stavis sta da radi (ListBox1.Items.Add)
    until FindNext(SearchRec) <> 0;

  If FindFirst(Path + '*.*', $00000010, SearchRec) = 0 Then
    repeat
      If (SearchRec.Attr and $00000010 <> 0) and
         (SearchRec.Name <> '.') and
         (SearchRec.Name <> '..') and
         (Pos(WinDir, SearchRec.Name) = 0) Then
        FeedToListBox(Path + SearchRec.Name + '\', FileExt);
    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);

[ bancika @ 04.07.2004. 18:54 ] @

malo je ruzno sa konstantama tipa $0000003F $00000010
bolje je koristiti imena, da se zna sta je sta :)

[ hwfanatic @ 04.07.2004. 22:17 ] @

Čini mi se da u Delphiju već postoji takav jedan ListBox, ako ti treba već gotova stvar. Potraži po paleti; ako ništa drugo, možeš pogledati source...

[ reiser @ 05.07.2004. 00:46 ] @

Citat:

bancika: malo je ruzno sa konstantama tipa $0000003F $00000010
bolje je koristiti imena, da se zna sta je sta

Eh da, zamenio sam ih zato sto u mom programu nisam koristio SysUtils.