|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.04.2014, 10:08 | #1 |
Пользователь
Регистрация: 21.04.2014
Сообщений: 11
|
Избавиться от chdir
Программа поиска файлов, нужно обойтись без chdir. Подскажите как модернизировать код.
Код:
Последний раз редактировалось Stilet; 21.04.2014 в 10:28. |
21.04.2014, 10:32 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Код:
I'm learning to live...
|
21.04.2014, 10:45 | #3 |
Пользователь
Регистрация: 21.04.2014
Сообщений: 11
|
Поменял, теперь выдает ошибку в строке 102, а именно
[Pascal Error] FindFile_.pas(102): E2035 Not enough actual parameters Последний раз редактировалось flyingbudda; 21.04.2014 в 11:02. |
21.04.2014, 11:16 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Догадываться что в 102-й строке мне нужно?
Ладно. Телепатирую: Find вызываешь изначально по клику кнопки без передачи ему пути. Передай ему в параметр Edit2.Text.
I'm learning to live...
|
21.04.2014, 11:24 | #5 |
Пользователь
Регистрация: 21.04.2014
Сообщений: 11
|
Прошу прощения, спасибо за помощь!
|
21.04.2014, 11:55 | #6 |
Пользователь
Регистрация: 21.04.2014
Сообщений: 11
|
я правильно понял?
Код:
|
21.04.2014, 11:58 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
ChDir(cDir); уже не нужен. Можешь его убирать.
Еще раз внимательно посмотри пример по ссылке что я дал. Проанализируй его.
I'm learning to live...
|
21.04.2014, 12:06 | #8 |
Пользователь
Регистрация: 21.04.2014
Сообщений: 11
|
Да я сижу, разбираю его. Стараюсь перенести его на мой пример.
Функция поиска правильно построена? procedure Find(aPath:String); var SearchRec: TSearchRec; // информация о файле или каталоге begin GetDir(0,cDir); // получить имя текущего каталога if cDir[length(cDir)] <> '\' then cDir := cDir+'\'; if FindFirst(aPath+FileName, faArchive,SearchRec) = 0 then repeat if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then begin Form1.Memo1.Lines.Add(cDir + SearchRec.Name); n := n + 1; end; until FindNext(SearchRec) <> 0; // обработка подкаталогов текущего каталога if FindFirst('*', faDirectory, SearchRec) = 0 then repeat if (SearchRec.Attr and faDirectory) = SearchRec.Attr then begin // каталоги .. и . тоже каталоги, // но в них входить не надо !!! if SearchRec.Name[1] <> '.' then begin Find(aPath+Searchrec.Name);//выполнить поиск в подкаталоге end; end; until FindNext(SearchRec) <> 0; |
21.04.2014, 12:51 | #9 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,859
|
Код:
|
21.04.2014, 15:50 | #10 |
Пользователь
Регистрация: 21.04.2014
Сообщений: 11
|
я делал поиск для файлов dbf, с chdir все прекрасно работало. Но от chdir надо уйти.
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
команда cd, смена текущего каталога в cmd через chdir.exe | crosby87 | Общие вопросы C/C++ | 3 | 27.11.2013 00:05 |
Избавиться от BlueScreen | Анастасия2013 | Windows | 5 | 30.01.2013 09:59 |
Как избавиться от #Н/Д? | kachorro | Microsoft Office Excel | 10 | 26.04.2012 06:38 |
Избавиться от нагромождения IF | fezilk25 | Общие вопросы Delphi | 9 | 17.11.2010 20:30 |