BCB 遍历指定目录

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *FileList = new TStringList();
SearchDir("c:\WINNT", FileList);
Memo1->Lines->Assign(FileList);
}
//---------------------------------------------------------------------------

//搜索指定目录的函数
void __fastcall TForm1::SearchDir(AnsiString Dir, TStrings *FileList)
{
TSearchRec sr;
if (FindFirst(Dir + "\*.*", faAnyFile, sr) == 0)
{
do{
FileList->Add(Dir + "\" + sr.Name);
}while(FindNext(sr) == 0);

FindClose(sr);
}

}