VPF::Исключение путя файла во время поиска

CODARZ

Дата 4.10.2003, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

Есть следущий код

Код


//Поиск файла
  //Ищем файл, и если он существует добавляем его в файл-лист
  if FindFirst(DirPathEd.Text+FileNameEd.Text, faAnyFile, SearchRec)=0 then
  repeat
    MainForm.FileList.Items.Add(ExpandFileName(SearchRec.Name));
  until FindNext(SearchRec)<>0;
  FindClose(SearchRec);

Обратите внимание на функцию ExpandFileName в скачаном мною
с этого сайта FAQ написано что это фунцкция должна извелечь
имя файла с полным путем, но происходит вот что: она исключает
путь но это путь моей программы и имя файла, а я искал этот файл
совершенно в другой папке....

КАК МНЕ ПРАВИЛЬНО ИЗВЛЕЧЬ ПУТЬ К ФАЙЛУ

Это сообщение отредактировал(а) CODARZ - 4.10.2003, 19:41

Vit

Дата 4.10.2003, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


//Поиск файла
 //Ищем файл, и если он существует добавляем его в файл-лист
 if FindFirst(DirPathEd.Text+FileNameEd.Text, faAnyFile, SearchRec)=0 then
 repeat
   MainForm.FileList.Items.Add(DirPathEd.Text+SearchRec.Name);
 until FindNext(SearchRec)<>0;
 FindClose(SearchRec);

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

CODARZ

Дата 4.10.2003, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

Цитата(Vit @ 4.10.2003, 19:43)

Код


//Поиск файла
 //Ищем файл, и если он существует добавляем его в файл-лист
 if FindFirst(DirPathEd.Text+FileNameEd.Text, faAnyFile, SearchRec)=0 then
 repeat
   MainForm.FileList.Items.Add(DirPathEd.Text+SearchRec.Name);
 until FindNext(SearchRec)<>0;
 FindClose(SearchRec);

Слушай, а ты прав

Как просто все оказалось...

CODARZ

Дата 4.10.2003, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

Это конечно правильно и хорошо

НО когда я ищу несколько файлов по шаблону типа *.txt конструкция не подходит

CODARZ

Дата 4.10.2003, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

Цитата(CODARZ @ 4.10.2003, 19:49)

Это конечно правильно и хорошо

НО когда я ищу несколько файлов по шаблону типа *.txt конструкция не подходит

Все я уже догадался... Всем спасибо... Вопрос решен!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »