Платные хостинги     Раскрутка сайта     Книги по программированию

Проблемма, FindFirst, FindNext

- Написал процедуру которая в Listbox1 добавляет файлы и каталоги из указанного пути:Код procedure TForm1.opendir;var  Rec: TSearchRec;  x,z,y: integer;  s,dirr: string;begin   listbox1.Clear;   x:=0;   FindFirst(dir,faAnyFile,rec);   FindNext(rec);   Listbox1.Items.Add(rec.Name);     WHILe x=0 do begin    z:=FindNext(rec);    if z<>0 then      x:=1    else      Listbox1.Items.Add(rec.Name);    end;   listbox1.Sorted:=true;   FindClose(rec);    dirr:=dir;      delete(dirr,length(dirr)-2,3);      temp:=dirr;      button1.caption:=dirr;      for y:=listBox1.Count-1 downto 0 do begin        if listbox1.Items[y]<>'..' then          if DirectoryExists(dirr+listbox1.Items[y]) then begin            s:=listbox1.Items[y];            insert('[',s,1);            insert(']',s,length(s)+1);            listbox1.Items[y]:=s;            Listbox1.Items.Move(y,1);          end;      end;end;highlightSyntax('delphiNWQ2MT','delphi');Выглядит запутано   но попробую объяснить:dir: данный путь(глобальная);dirr: Переменная в которую сваливается путь без '*.*'x,y,z: Вспомогательные  Так вот значит вопрос:Когда все это дело выполняется, то не все каталоги приходят к виду[каталог]почему так происходит и можно ли эту процедуру сделать поменьше?      

- А FileListBox не пробовал? Посмотрю код.

- Не, FileListBox не интересно

- А ты в его коде полазий-интересно.

- А где его найти?

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD