|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.07.2015, 17:54 | #1 |
Регистрация: 13.07.2015
Сообщений: 3
|
Поиск файла
Как открыть файл с неизвестным именем, но с известной директорией где он лежит? В этой директории только один файл, но есть папки в которых тоже есть файлы.
|
13.07.2015, 18:45 | #2 |
Форумчанин
Регистрация: 31.05.2011
Сообщений: 301
|
http://www.programmersforum.ru/showthread.php?t=55828
только там для txt, там нужно проверку убрать и ссыпать все файлы в листбокс))) |
13.07.2015, 19:20 | #3 | |
Форумчанин
Регистрация: 30.06.2015
Сообщений: 353
|
Цитата:
|
|
13.07.2015, 19:47 | #4 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Просканируй эту директорию с помощью TSearchRect, чтобы получить имя файла, а за тем делай с ним что хочешь.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
14.07.2015, 09:05 | #5 |
Регистрация: 13.07.2015
Сообщений: 3
|
Procedure tform1.button1click(sender:tobject) ;
Var sr : TSearchRec; Begin if FindFirst('Uni*', faAnyFile, sr) = 0 then begin Repeat Memo1.Lines.Add(sr.name); Until FindNext(sr) <> 0; FindClose(sr); end; End; Везде где есть sr пишет ошибку, types of actual and formal var parameters must be identical |
14.07.2015, 09:15 | #6 |
Регистрация: 13.07.2015
Сообщений: 3
|
Все вопрос решил, спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск файла | parshin | Microsoft Office Excel | 7 | 28.02.2013 17:27 |
Поиск файла | plusstick | Microsoft Office Access | 4 | 22.02.2010 11:09 |
поиск файла | Mihailhome | Общие вопросы Delphi | 1 | 25.05.2009 18:03 |
Поиск файла | Cpluser | Общие вопросы C/C++ | 4 | 03.03.2009 11:30 |
Поиск файла БД | D-mon | БД в Delphi | 12 | 29.05.2008 13:26 |