|
#1
|
|||
|
|||
Выборка файлов
Здравствуйте, уважаемые программисты! У меня такая задача: имеется какая-либо папка, в ней находятся различные типы файлов... На форме находится ListBox и Button. По нажатии кнопки, в ListBox добавляются все имеющиеся файлы в папке в расширением .txt - при этом само расширение отображать не нужно. Помогите, пожалуйста. Заранее спасибо!
|
#2
|
||||
|
||||
посмотри в справке пример по FindFirst, там как раз то что тебе надо (ну с некоторыми изменениями конечно).
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
Писал в точности тоже самое в свое время. Держи, вот готовый код:
Код:
procedure TForm1.load; var searchResult : TSearchRec; begin SetCurrentDir(''); /путь откуда читаем данные if FindFirst('*.txt', faanyfile, searchResult) = 0 then begin repeat listbox1.Items.Add(copy(searchresult.Name, 0, length(searchresult.Name)-4)); until FindNext(searchResult) <> 0; FindClose(searchResult); end; end; |