прошу помощи у спецов (отцов ) в программинге:
наваял тут программку - на форме ListBox (туда выводятся файлы из дирректории C:\) по нажатию кнопки.
проблемма вот в чём:
при установке аттрибута в FindFirst выводить все файлы, программа выводит даже те файлы какие не отображает проводник (разве такое бывает чтобы проводник не отображал все файлы?), а при установке аттрибута выводить директории - прога выводит и директории и файлы, то есть то что отображает проводник.
или я не умею пользоваться дельфи (что очевидно) либо не знаю чего...

Проводник по умолчанию не показывает скрытые и системныефайлы.
А FindFirst показывает все, если задать ему все атрибуты.
Кроме того, если мы просим найти только директории, то он ищет все.
Это еще с паскаля тянется. Видимо для рекурсивного поиска сделано.
Если нужны только директории, то нужно каждую найденую запись дополнительно проверять на атрибут директория.

Код

//==================Поиск файлов============== procedure GetFile(Dir: string; ras: string); //Dir - путь к директории, ras - расширение файла. var f : TSearchRec; i : integer; s, key : string; begin i := FindFirst(Dir+ras, faAnyFile, f);  while (i=0) do   begin    s := Dir+f.Name; // Сюда складываются пути и названия найденных файлов    i := FindNext(f);    Application.ProcessMessages;   end; FindClose(f); end; //==================Поиск дирикторий============== procedure GetDir(Dir: string); //Путь к директории var f : TSearchRec; i : integer; begin i := FindFirst(Dir+'*.*', faDirectory, f); while (i=0) do   begin   if (f.Name='.') or (f.Name='..') then   else     begin     if (f.Attr and faDirectory)<>0 then       begin         GetDir(Dir+f.Name+'\');         Application.ProcessMessages;       end     else       begin        i := FindNext(f);       end;     end;     i := FindNext(f);     Application.ProcessMessages;   end; FindClose(f); end;

круто ! я смотрю ты там и рекурсию влепил - я бы не додумался...

Естественно. А как же обходить директории без рекурсии?
Рекурсия, пожалуй, единственный способ, не считая извращений.

Цитата(AgereS @ 2.3.2005, 11:59)

круто ! я смотрю ты там и рекурсию влепил - я бы не додумался...

Дык мы не первый год за мужем то

На. Работает. Сам этим пользуюсь.

Главная хитрость в том, что нельзя давать в качестве параметра faDirectory т.к. в этом случае покажутся папки которые имеют ТОЬЛКО такой параметр

Код

Рrocedure GetListDir(List: TStrings; Const path:string; Const dir:string); Var     FS:TSearchRec; begin     List.Clear;     FindFirst(path,faAnyFile,FS);//НУЖНО ВЫЗВАТЬ ТАК     Repeat          if dir='dir' then          begin               if (FS.Attr and faDirectory)=faDirectory then//А ПОТОМ ПРОВЕРИТЬ ТАК.               begin                    List.Add(FS.Name+#9+Inttostr(FS.Size)+#9+DateTimeToStr(FS.Time)+#9+inttostr(FS.Attr));               end;          end else          begin               if (FS.Attr and faDirectory)<>faDirectory then               begin                    List.Add(FS.Name+#9+Inttostr(FS.Size)+#9+DateTimeToStr(FS.Time)+#9+inttostr(FS.Attr));               end;          end;     Until FindNext(FS)<>0;     FindClose(FS); end;

кстати, параметр dir определяет будет выводить ф-я директории или файлы.

Это сообщение отредактировал(а) Bes - 3.3.2005, 07:29

Директория задается несколькими флагами...
пример:

Код

var sr : TSearchRec; ... FilesList.Clear;  if FindFirst(Folder+'\*.*',faAnyFile,sr)=0 then    begin      if (sr.Attr in [16..19,48..51]) and (not AnsiMatchText(sr.Name,['.','..']))          then FilesList.Add(sr.Name);      while FindNext(sr)=0 do        if (sr.Attr in [16..19,48..51]) and (not AnsiMatchText(sr.Name,['.','..']))          then FilesList.Add(sr.Name);      FilesList.Sort; //Обязательно! Иначе будет весело...    end;

P.S. Folder - это входной параметр в процедуру...
FileList.Sort - необязательно (из-за того, что у мя стоял Find вместо indexof) - забыл удалить...