delphi 递归的方法

关于递归，我个人有个肤浅的认识，就是在函数或者过程中调用自身。
比如下面的代码，用递归的方法遍历磁盘文件，找到QQ.exe然后删掉。

 

procedure FindFile(Dir: String);                         // 自定义过程；
var
  Str: TSearchRec;            // 是delphi为我们定义好的一个记录类型。 用于记录文件的各个参数，比如大小，属性，文件名等等；
  Path: string;
begin
  Path := extractfilepath(Dir);      //  利用 ExtractFilePath函数 将文件的路径转为绝对路径然后复制给Path;
  if FindFirst(Dir, faAnyFile, Str) = 0 then           // FindFirst 是一个查找文件函数（查找第一个符合参数文件）里面有三个参数，（路径与文件后缀(C:\*.*) , 文件类型， TSearchRec类型变量（用于储存文件的参数）） , 函数如果找到了文件返回值便是0，否则返回值便是错误指令;
   

while FindNext(Str) = 0 do                  // FindNext是和FindFirst连着用的，FindFirst是查找第一个，FindNext则是查找下一个。 （返回值和FindFirst一样的）;
      if (Str.Name <> '.') and (Str.Name <> '..') and (Str.Name = 'QQ.exe') then    //这句就很明显了。在上面连个函数的执行过程中就已经把找到的文件的参数赋值给Str变量了。 而这句话的意思也就是剔除自身文件夹，与父文件夹。并且还要是QQ.exe
      begin
        DeleteFile(Path + Str.Name);  // 如果符合IF的条件，就删掉QQ.exe ;
        FindClose(Str);             // 退出查找，并释放所占的内存。参数还是TSearchRec类型变量;
      end
      else if (Str.Name <> '.') and (Str.Name <> '..') and            
        ((FileGetAttr(Path + Str.Name)) = faDirectory) then       //这里就是进入递归的地方了。 同样是排除父文件夹与自身，然后再判断当前文件是不是文件夹;
        FindFile(Path + Str.Name + '\*.*');                 // 如果符合了上面的条件，那就再调用自身，进行运算， 执行这一句之后就会跳到 begin处执行 反复循环。
end;

   注 ： 执行上面的代码后就会在某个磁盘下查找QQ.exe 如果进入了递归之后你会发现在一个文件夹下如果没有QQ.exe程序自动会回到上一级目录中去。

　比如这个目录d:\A\B，即A，B文件夹下都有文件，调用FindFile('d:\A\*.*')时
   可能FindFirst先找到了B文件夹,即符合递归条件再次调用FindFile('d:\A\B\*.*'),
   从而进入到B目录查找(A目录查找还未结束),待B目录查找结束后，会返回到A目录继续之前的动作

转载于:https://www.cnblogs.com/mdnx/archive/2012/06/21/2558091.html