[CuBiC]

Здравствуйте, уважаемые программисты! У меня такая задача: имеется какая-либо папка, в ней находятся различные типы файлов... На форме находится ListBox и Button. По нажатии кнопки, в ListBox добавляются все имеющиеся файлы в папке в расширением .txt - при этом само расширение отображать не нужно. Помогите, пожалуйста. Заранее спасибо!

[Aristarh Dark]

посмотри в справке пример по FindFirst, там как раз то что тебе надо (ну с некоторыми изменениями конечно).

[T-dayne]

Писал в точности тоже самое в свое время. Держи, вот готовый код:

Код:

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;