代码有点不明白
从网上找到这段查找目录下文件的代码,有两个地方不明白,
void TForm1::Direct(const String &path){ int k = 0; k |= faAnyFile; TSearchRec r; if( Sysutils::DirectoryExists(path)) { //判断目录是否已经存在 if(FindFirst(path+"\\*.*",k,r) == 0) { while(FindNext(r)==0) { if(r.Name=="."||r.Name==".."||r.Name=="...") { mmo1->Lines->Add(path);//得到文件夹 continue; } int k1 = 0; k1 |= faAnyFile; TSearchRec r1; //递归 if(r1.Name=="."||r1.Name==".."||r1.Name=="...") continue; String path1 = path+"\\"+r.Name; if(FindFirst(path+"\\"+r.Name+"\\*.*",k1,r1) == 0) Direct(path1); mmo1->Lines->Add(path+"\\"+r.Name );//得到文件名 } FindClose(r); } } }