С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
ambarka2
0 / 0 / 1
Регистрация: 04.05.2010
Сообщений: 116
1

Работа с FindFirst, FindNext, FindClose

28.02.2011, 14:49. Просмотров 1561. Ответов 3
Метки нет (Все метки)

возникли проблемы опроса содержимого директории при использовании этого способа.
Во первых выдает в SR: TSearchRec;
SR.Name = '.' - что это!!???
как определить файл это или фапка - чтобы четко: вот это файл, а вот это папка, по атрибутам SR.Attr
там он их складывает и я несовсем понял как однозначно ответить на вопрос при разборе - файл это или папка а тут еще SR.Name = '.'
О боже!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2011, 14:49
Ответы с готовыми решениями:

использование TDateTime и FindNext
Всем привет есть такой вопрос возможно ли как нибудь изменить этот код что бы...

Неонятный глюк Delphi при работе с FindFirst/FindFirstFile в режиме Step Over (F8)
Неонятный глюк Delphi при работе с FindFirst/FindFirstFile в режиме Step Over...

Поиск файлов с помощью FindFirst и FindNext дает лишние файлы
Всем привет!!! Столкнулся с такой ситуацией, что в FindFirst, FindNext...

Ругается на функцию FindClose
Доброго времени суток, уважаемые! Суть проблемы в следующем: делфи ругается на...

Поиск папок FindFirst
Здравствуйте. Вот, мною был сперт с какого-то из форумов код, который по идее...

3
ambarka2
0 / 0 / 1
Регистрация: 04.05.2010
Сообщений: 116
28.02.2011, 14:52  [ТС] 2
да и ведь нехочется проверять функциями FileExists и DirectoryExists что они существуют, это долго по моему
0
ambarka2
0 / 0 / 1
Регистрация: 04.05.2010
Сообщений: 116
28.02.2011, 15:10  [ТС] 3
кажется точкой обозначается родительская папка..текущая...но зачем??
0
ambarka2
0 / 0 / 1
Регистрация: 04.05.2010
Сообщений: 116
28.02.2011, 16:58  [ТС] 4
как можно более рационально получить результат по существующему значению SR.Attr (дать ответ по каждому пункту: директори это, системное, скрытое)?
SR - это структура TSearchRec;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  tempAttr:=SR.Attr;
  if tempAttr >= 32 then //Archive
    tempAttr:=tempAttr-32;
  if tempAttr >= 16 then //Directory 
  begin
    tempAttr:=tempAttr-16;
    Result:=true;
  end;
  {
  if tempAttr >= 8 then //VolumeID
    tempAttr:=tempAttr-8;
  if tempAttr >= 4 then //SysFile
    tempAttr:=tempAttr-4;
  if tempAttr >= 2 then //Hidden
    tempAttr:=tempAttr-2;
  if tempAttr >= 1 then //ReadOnly
    tempAttr:=tempAttr-1;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 16:58

функция FindFirst не работает как положено
Есть такой кусок кода: if FindFirst('C:\*', faHidden, SR)=0 then ...

findfirst+findnext
Много лет работал со сладкой парочкой findfirst-findnext и совершенно не...

Аналог функций findfirst - findnext
Какие есть в Qt аналоги функций findfirst - findnext ? Задача - получить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru