|
Вопрос # 3 840/ вопрос открыт / |
|
Уважаемые Эксперты!
Подскажите, пожалуйста, как программно организовать поиск каталогов(папок) по части имени каталога(папки). Edit1.Text := 'диск поиска'.
Найденные каталоги запишем в поле Memo1
 |
Вопрос задал: Kyran29 (статус: Посетитель)
Вопрос отправлен: 3 марта 2010, 09:37
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Всё готово. Принимай работу!
Работа в прицепе.
Жду пива.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 3 марта 2010, 11:39
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 57; последнее сообщение — 5 марта 2010, 08:10; участников в обсуждении: 4.
Страницы: [1] [2] [3] [Следующая »]
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 09:56 [#1]:
Да пользуйся ты всё теми же старыми добрыми FindFirst(), FindNext(), FindClose() и плюс ещё функция Pos(). Этого достаточно для решения поставленной задачи.
Могу написать процедуру минут за 10-15.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Егор (статус: 10-ый класс), 3 марта 2010, 10:04 [#2]:
искать-то как? только в корне, или и в поддиректории тоже заходить?
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 10:09 [#3]:
Добрый день Егор!
искать-то как? только в корне, или и в поддиректории тоже заходить?
И в корне и поддиректории тоже.
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 10:11 [#4]:
Цитата (Егор):
искать-то как? только в корне, или и в поддиректории тоже заходить?
Да можно сделать универсальную функцию типа
function FindFolders(const Path, PartOfName: string; WriteTo: TStrings; const IncludeSubfolders: Boolean): Integer;
var
Rec: TSearchRec;
begin
// <--- код писать тут
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 10:12 [#5]:
Добрый день min@y™
и плюс ещё функция Pos()
Вот здесь можно немного подробней ?
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 10:14 [#6]:
Цитата (Kyran29):
Вот здесь можно немного подробней ?
Функция Pos() предназначена для поиска подстроки в строке.
Delphi syntax:
function Pos(Substr: string; S: string): Integer;
Description
In Delphi, Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.
Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 10:19 [#7]:
min@y™
Могу написать процедуру минут за 10-15.
Напиши
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 10:21 [#8]:
Цитата (Kyran29):
Напиши
пиво будет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 10:23 [#9]:
min@y™
Пиво будет !!!
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 10:28 [#10]:
Цитата (Kyran29):
Пиво будет !!!
Ща напишу, тока покурить схожу побыстрому...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
3 марта 2010, 10:38: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с файловой системой модератором Ерёмин А.А.
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 11:54 [#11]:
Ну чо молчишь-то? Программу проверил?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 11:58 [#12]:
min@y™:
Прекрасно работает!!!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 12:04 [#13]:
min@y™:
Исходник бы глянуть .
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 12:20 [#14]:
Цитата (Kyran29):
Исходник бы глянуть .
Пиво давай, как договаривались. Тогда исходник получишь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 12:26 [#15]:
Цитата:
Спасибо, картинки выпил.
Вот твои исходники: http://ishodniki.ru/
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 13:39 [#16]:
Ну таки что? Освоил исходники-то? То, что надо, я надеюсь...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 13:44 [#17]:
min@y™:
Спасибо !!!
Жалко потерянного времени !!!
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 14:14 [#18]:
Цитата (Kyran29):
Спасибо !!!
Обращайся ещё.
Цитата (Kyran29):
Жалко потерянного времени !!!
На что потратил время? На поиск картинок с пивом?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 3 марта 2010, 14:24 [#19]:
min@y™:
Да на поиск картинок с пивом !!!
А вопрос так и остался (пока) не решенным !
|
|
|
min@y™ (статус: Доктор наук), 3 марта 2010, 14:31 [#20]:
Цитата (Kyran29):
А вопрос так и остался (пока) не решенным !
Что, моя программа вопрос не решила? В чём проблема-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [1] [2] [3] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
