Fil liste

brug Tfilelistbox...

Ja men hvordan får jeg underbibliotekerne med??

på http://borrisholt.com under FileIO finder du et komplet eksempel.

Jens B

Jens - din side er frygtelig i Ie6 :(

så prøv http://borrisholt.com/nsinsex.html

Jens B

lav en løkke der tjekker for undermapper! Til det kan du eventuelt bruge en TDirectoryListBox... Vær sikker på at din TFileListBox og din TDirectoryListBox altid har samme sti, så skriv følgende i din TDirectoryListBox's OnChange event:

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var
  i : integer;
  s : string;
begin
  FileListBox1.Directory := DirectoryListBox1.Directory;
  Caption := 'RodMappe : '+DirectoryListBox1.Items[DirectoryListBox1.ItemIndex];
  if DirectoryListBox1.ItemIndex < DirectoryListBox1.Items.Count then
  begin
    s := '';
    for i := 0 to DirectoryListBox1.Items.Count-DirectoryListBox1.ItemIndex-1 do
    if i > 0 then
    s := s+DirectoryListBox1.Items[DirectoryListBox1.ItemIndex+i]+', ';
    Caption := Caption+' UnderMapper: '+s
  end;
end;

I koden viser den, RodMappen (den mappe du er befinder dig i) og dernæst alle undermapper der tilhøre rodmappen, i din form's caption...

ZeroHero

Smid denne comp i en unit og installer den, sæt property til det du vil og kør execute, resultatet kan assignes til en listbox

http://www.eksperten.dk/spm/214736

Her er en god komponent:

http://www.pythia.dk/komponenter/download/TFileSearch.zip

Her er et fungerende eksempel

Lav en form og sæt en listbox,edit,directorylistbox,drivecombobox og en checkbox på formen.

Tilføj følgende til button1click

procedure TForm1.Button1Click(Sender: TObject);
var path : string;
  Taeller,Taeller2 : integer;
  Liste : Tstrings;
  TooMany : boolean;
begin
  screen.cursor := crHourglass;
  caption := 'Checking';
  form1.update;
  Liste := Tstringlist.create;
  ListBox1.Items.Clear;
  TooMany := false;
  Taeller := 0;
  Taeller2 := 0;
  if Length(DirectoryListBox1.Directory) = 3 then Liste.add(copy(DirectoryListBox1.Directory,1,2)) else Liste.add(DirectoryListBox1.Directory);
  repeat
    FindFirst(Liste.strings[Taeller]+'\*.*',FaDirectory,SR);
    while findnext(sr) = 0 do
    begin
      if (sr.name <> '..') and (sr.name <> '.') then
        if SR.Attr and faDirectory = faDirectory then
          Liste.add(Liste.strings[Taeller]+'\'+Sr.name);
    end;
    inc(taeller);
  until Taeller > Liste.count-1;
  for taeller := 0 to Liste.Count-1 do
  begin
    FindFirst(Liste.Strings[TAeller]+'\'+edit1.text,faAnyFile,SR);
    repeat
      caption := 'Checking directory: ' + inttostr(taeller+1) + '/' + inttostr(liste.count);
      form1.update;
      if sr.attr and faDirectory <> faDirectory then
      begin
        if checkbox1.checked then sr.name := Liste.strings[taeller]+'\'+sr.name;
        if ListBox1.Items.count < 32736 then ListBox1.Items.Add(sr.name)
        else TooMany := true;
        inc(Taeller2);
      end;
    until findnext(sr) <> 0;
  end;
  Liste.free;
  Caption := Caption + ' - ' + inttostr(Taeller2) + ' matches found';
  if TooMany then Caption := Caption + ' - only 32736 matches shown...';
  screen.cursor := crDefault;
end;


Det er måske nok en overdrevet version men så kan du jo bare fjerne noget af det.

lad os få det her afslutet. Her er et færdigt eksempel :

Http://borrisholt.com/Eksperten/ThreadSearch.zip

Jens B

Hov .. jeg glemte at der skal være en variabel der hedder
SR : TSearchRec;

>>gravbamzula
Beslut dig, og luk!