Как вывести весь каталог txt файлов в ListBox

[quarty]

Задал я путь к папке и как вывести в ListBox список всех файлов txt в этой папке?
Заранее спасибо

[Serge_Bliznykov]

1) решить нужны ли Вам файлы в подпапках.

2) почему поиском не пользуетесь?!
Иначе нашли бы элементарно!

вот пример поиска вместе с подкаталогами:

{ добавив соотвествующий модуль Masks  }
uses ... , Masks;
...


procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  DirSearch('C:\TEMP', '*.TXT', ListBox1.Items);
end;

[quarty]

Спасибо, но подкаталоги не нужны, просто я задаю папку и она выводить список всех txt файлов в ListBox.

[Serge_Bliznykov]

выкинуть рекурсивный вызов и всех делов то:

var
  SearchRec: TSearchRec;
begin

  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) = 0 then 
        if MatchesMask(ExtractFileName(SearchRec.Name), "*.TXT") then
            ListBox1.Items.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

[Stilet]

как вывести в ListBox список всех файлов txt в этой папке?

SendMessage(ListBox1.Handle,LB_DIR,0,integer(pchar('c:\*.txt')))

Будьте проще, господа. )

[quarty]

Спасибо всем
Stilet отдельное спасибо

[XerSon]

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

SendMessage(ListBox1.Handle,LB_DIR,0,integer(pchar('c:\*.txt')))

Будьте проще, господа. )

Изыскано, просто и не неподражаемо, +10

[ШеФФ]

SendMessage(ListBox1.Handle,LB_DIR, 0,integer(pchar('c:\*.txt')))

У меня вопрос. Как сделать такое же для ComboBox? Вариант заменить ListBox1 на ComboBox1 не работает=(

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

ПОСТ 4 гляньте.

[ШеФФ]

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

ПОСТ 4 гляньте.

А почему нельзя сделать это так же в одну строчку? Разве комбобокс и листбокс не идентичны в этом плане? Просветите новичка, плиз=(