|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.10.2008, 14:59 | #1 |
Пользователь
Регистрация: 31.10.2007
Сообщений: 20
|
Помощь с поиском
Немогу разобраться как осуществить такую вещъ, если кто нибудь поможет кодом процедуры буду очень признателен.
Требуется осуществить поиск фийлов по маске *.doc (к примеру) и получить в массив имена всех файлов с указанием путей Туплю чтото жутко ибо с поиском не работал вообще |
23.10.2008, 17:09 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Ну, давайте вместе.
Для поиска есть такой тип TSearchRec, функции FindFirst и FindNext. Как раз в параметрах FindFirst и задается маска для поиска. А у TSearchRec одним из параметров является имя найденного файла .FileName. Во встроенном хэлпе Дельфи есть отличные готовые примеры поиска. |
27.10.2008, 09:48 | #3 |
Пользователь
Регистрация: 31.10.2007
Сообщений: 20
|
Спасибо, с этим я разобрался.
Остался один вопрос, напишу сюда: Как получить путь до папки "Мои документы" на любом компьютере для юзера в котором запущена программа? |
27.10.2008, 10:08 | #4 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Скачайте себе мой справочник (см. подпись), там есть вопрос про определение каталогов всех служебных папок (поиск там по "мои").
Надеюсь, поможет в решении хотя бы некоторых ваших вопросов. |
27.10.2008, 12:07 | #5 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
uses ShlObj;
procedure TMainForm.FormCreate(Sender: TObject); var s: array[0..255]of char; begin SHGetSpecialFolderPath(0,PansiChar( @s),CSIDL_PERSONAL,false); defdir:=s+'\LOG.txt'; |
27.10.2008, 13:20 | #6 |
Пользователь
Регистрация: 30.05.2008
Сообщений: 25
|
Вот модуль .pas для делфи где записны функции для поиска фалов.
http://gangsisoft.zs9.ru/download/Search.7z |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проблемы с поиском | vIRTx | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 12.06.2008 17:43 |
Проблема с поиском | Zeraim | Microsoft Office Access | 2 | 04.06.2008 05:42 |
Помогите с поиском | EugenZyr | Помощь студентам | 1 | 07.05.2008 14:02 |
Помогите с поиском | 1234 | БД в Delphi | 5 | 01.04.2008 11:33 |
Проблемка с поиском | Glyuk24 | Помощь студентам | 6 | 24.11.2007 22:31 |