[жекаизжека]

как в листобоксе сделать считывание файла из директории и удалением его формата
"c:\wer\qwer.qw" а что бы в листбоксе показывалось лишь название то есть "qwe"

[message]

помойму через массивы это всё делалось

[жекаизжека]

FileListBox1 то что нужно было, )) вот только что то расширения файлов не могу убрать и как задать директорию(((

[Interface]

Насколько я понимаю те надо из строки удалить нескколькл символов после точки? Как это сделать непомню...
Но примерно так должно быть :
1. Слово := Директория;
2. В Слове ищем "."
3. Узнаем сколько после нее знаков это будет N;
4. Удаляем с конца строки N + 1 знаков (плюс сама точка);
Или тебе не это нужно?

[Ferra]

По моему вышеописанный способ весьма примитивен >:-О

используй функции
ExtractFileName('FileName')
ExtractFileExt('FileName')

для решения твоей проблемы вижу 2способа. Использовать просто обычный КомбоБокс и искать файлы ручками, либо перепиши сам контрол. Есть на закладке `самплз` и другой ему аналог - поищи, там это вроде можно реализовать.

про директорию. Для этого придется на форму повесить ещё 2 контрола. На той же закладке есть компоненты ДрайвЛистБокс и второй для работы с директориями. свяжи их в инспекторе объектов, и всё.

ну и напоследок. Я не уверен, но вроде можно напрямую с Итемами в ФайлЛистБокс работать..а там уже всё просто

[DSL88]

Блин, через поиск файлы в директории находишь и ищещь точку... Копируешь в доп переменную что получится (через POS('.',S) возвращает номер буквы с точкой). потом снова ищещь до точки(вдруг точек несколько). Вот и все

[Interface]

Тупой инет! плохой инет!!! =(

[Interface]

Сообщение от Ferra

По моему вышеописанный способ весьма примитивен >:-О

используй функции
ExtractFileName('FileName')
ExtractFileExt('FileName')

для решения твоей проблемы вижу 2способа. Использовать просто обычный КомбоБокс и искать файлы ручками, либо перепиши сам контрол. Есть на закладке `самплз` и другой ему аналог - поищи, там это вроде можно реализовать.

про директорию. Для этого придется на форму повесить ещё 2 контрола. На той же закладке есть компоненты ДрайвЛистБокс и второй для работы с директориями. свяжи их в инспекторе объектов, и всё.

ну и напоследок. Я не уверен, но вроде можно напрямую с Итемами в ФайлЛистБокс работать..а там уже всё просто

Да да помню че то такое... Хотел написать, но забыл как это выглядит поэтому предложил удалять буковки...

[жекаизжека]

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

это работает нормально без FileListBox1, при нажатие кнопки
FS:=TFileStream.Create('files\1.txt', fmOpenRead);

При выделении пункта из FileListBox и нажатие кнопки, выдает ошибку, где ошибка, можете подсказать.
FS:=TFileStream.Create('+FileListBox1.OnChange+', fmOpenRead);

маска в FileListBox1 прописана так Mask = files\*.*

[mak-karpov]

Есть такая функция....
ExpandFileName
И как раз получится: "c:\wer\qwer.qw" -> "qwer"