Показать сообщение отдельно
  #4  
Старый 09.10.2009, 17:56
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Цитата:
кликаю по имени файла, таким образом выбирая его, а вот как получить имя выбранного файла?
Видимо затык связан с тем, что вы в FindFirst не путь с маской задаете, а просто маску, в итоге у вас берется каталог из которого запускается программа. Получить этот путь можно так:
Код:
FilePath := ExtractFilePath(Application.ExeName).

Ну и соответственно полный путь к файлам у вас получается как FilePath + sr.name
Цитата:
и второй вопрос немного не потеме, как вывести в ListView файлы без расширений, т.е. только имена файлов?
Можно так:
Код:
FileName := Copy(sr.name,1,Pos('.',sr.name)-1);

Опоздал...
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием