Wyszukiwanie plików w folderze

Aby do ListBox wstawić wszystkie pliki z katalogu wpisanego do Edit:   

Unit1.h

private:
   void ListujKatalogi(String Path);


Unit1.cpp

#include <FileCtrl.hpp>
void TForm1::ListujKatalogi(String Path)
{
   TSearchRec sr;
   int result;

   result = FindFirst(Path + "*.*", faAnyFile, sr);

   while (result == 0)
   {
      if ((sr.Name != ".") && (sr.Name != "..") && (!(sr.Attr & faDirectory) > 0))
      {
         AnsiString NazwaPliku = Path + sr.Name;
         NazwaPliku = NazwaPliku.Delete(1, Edit->Text.Length() + 1);
         ListBox->Items->Add(NazwaPliku);
      }
      result = FindNext(sr);
   }
   FindClose(sr);
}

void __fastcall TForm1::EditKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
   if (Key == VK_RETURN)
   {
      if (DirectoryExists(Edit->Text))
      {
         ListBox->Items->Clear();
         ListujKatalogi(Edit->Text + "\\");
      }
   }
}