![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FindFirst, FindNext .....
Gnoll © (2006-08-02 13:43:00)как с помощью FindFirst,FindNext искать ТОЛЬКО папки? или при нахождении проверить является ли найденное папкой
Я сначало думал что faDirectory это филтр для папок , но он находжит также и файлы
Германн (2006-08-02 16:26:00) [21]
> Он находит даже не все папки и файлы которые расположены
> в заданой директории
Он то находит, да ты их теряешь.
Gnoll (2006-08-02 16:20:00) [22]И вот ещё
почему при таком коде
procedure TForm1.Button2Click(Sender: TObject);
var
Rec : TSearchRec;
begin
findFirst('c:\*.*',FaAnyFile,Rec);
repeat
FindNext(rec);
Memo.lines.add(REc.Name);
until FindNext(Rec) <> 0;
end;
Он находит даже не все папки и файлы которые расположены в заданой директории
Gnoll (2006-08-02 16:11:00) [23]А что это даст?
у папки что атрибут особый?
Virgo_Style (2006-08-02 13:47:00) [24]Gnoll (02.08.06 13:43)
проверить является ли найденное папкой
проверить атрибут найденного