Список файлов

[Sergeu]

Приветствую, и прошу помощи.
Можите подсказать подробно как в Delphi 7 сделать программу которая ввыводит в лист бокс список файлов котрыыек имеют например разришение не .Txt а .Pers. это первое а при нажатие на один из файлов в списке выводилась информация которая написанна в файле (как обычно в игровых файлах)
#name Транзит
#level 1
#Hp 100
#Od 5
????
ЗЫ
очень нужно для некоторых задумак и для создания игрухи))

[Вавел из ГМТУ]

1. Программе фиолетово на расширение.
Поставь вместо .txt расширение .exe и заставь программу прочитать.

2. Обрабатывать щелчок и выводить то что нужно.

[Пепел Феникса]

я для таких целей(чтоб не мучатся долго) юзал FileListBox с фильтром настроеным.
и событие OnClick

[Sergeu]

Сообщение от Пепел Феникса

я для таких целей(чтоб не мучатся долго) юзал FileListBox с фильтром настроеным.
и событие OnClick

а как его настроить? извеняюсь я или не понимаю или незнаю!

[Пепел Феникса]

св-во Mask
для вашего случая маска будет *.Pers
событие OnChange лучше юзайте...только проверяйте на отрицательный ItemIndex(в принципе это полюбому делать надо)

[Sergeu]

ну с маской понятно а вот код можите дать хоть образец?

[Пепел Феникса]

так файлы то ваши?...просто читайте инфу нужную и выводите..

кстати св-во FileListBox.FileName можно использовать....тут полный путь к файлу что выделен в компоненте

можно чтото типа такого, как пример:

procedure TForm1.FileListBox1Change(Sender:TObject);
begin
 if FileListBox1.FileName='' then exit;
 if FileExists(FileListBox1.FileName) then Memo1.Lines.LoadFromFile(FileListBox1.FileName);
end;

[Sergeu]

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

[Пепел Феникса]

я просто не знаю что у вас за файлы...
можно через TStringList, можно через паскалевкий AssignFile,Reset,ReadLn и тд
TFileStream еще есть...