Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.73
ambarka2
0 / 0 / 0
Регистрация: 04.05.2010
Сообщений: 116
#1

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

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

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

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

Неонятный глюк Delphi при работе с FindFirst/FindFirstFile в режиме Step Over (F8) - Delphi
Неонятный глюк Delphi при работе с FindFirst/FindFirstFile в режиме Step Over (F8) Суть - есть код, где вызывается поиск файлов. Есть 2...

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

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

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

Не умею открывать файлы, найденные "FindFirst" - Delphi
Доброго времени суток, дорогие форумчане! Пишу программу для обработки Excel файлов, хочу улучшить ее функционал. Задумка такая:...

3
ambarka2
0 / 0 / 0
Регистрация: 04.05.2010
Сообщений: 116
28.02.2011, 14:52  [ТС] #2
да и ведь нехочется проверять функциями FileExists и DirectoryExists что они существуют, это долго по моему
0
ambarka2
0 / 0 / 0
Регистрация: 04.05.2010
Сообщений: 116
28.02.2011, 15:10  [ТС] #3
кажется точкой обозначается родительская папка..текущая...но зачем??
0
ambarka2
0 / 0 / 0
Регистрация: 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+findnext - C++ Builder
Много лет работал со сладкой парочкой findfirst-findnext и совершенно не подозревал в них такого коварства! Оказывается, несмотря на...

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

поиск файлов (findfirst, findnext) - C (СИ)
Здравствуйте, вот пробую написать программу для поиска всех файлов( по маске *.*) определенной папки нашел вот такой пример, но он не...

FindNextFile,FindFirstFile,FindClose - C++ WinAPI
#include <windows.h> #include <iostream> #include<tchar.h> using namespace std; //strcpy, strcat //_tcscpy,_tcscat int...


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

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

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