十万火急！请教Delphi中如何遍历二级子目录？

Question

递归，在《Delphi 5开发人员指南》中有详细例子。
代码太多，不给你打了，反正就是查找文件的递归拉，你找找这本书看看，第377页

Answer 1

procedure SearchTxt(Path:String);
var F: TSearchRec
begin    
if FindFirst(Path,faAnyFile,F)= 0 then
begin
      repeat
          if (F.Name<>'.') and(F.Name<>'..') then
          begin
          if (F.Attr and faDirectory)<>faDirectory then
          begin
                 if ExtractFileExt(F.Name)='txt'  then
                 begin
                        HandleTxt;
                 end;
          end
          else
          begin
               SearchTxt(Path+F.Name);
          end;
 
      until FindNext(F) <> 0;
      FindClose(F);
end