摘要: 关于递归,我个人有个肤浅的认识,就是在函数或者过程中调用自身。比如下面的代码,用递归的方法遍历磁盘文件,找到QQ.exe然后删掉。procedure FindFile(Dir: String); // 自定义过程;var Str: TSearchRec; // 是delphi为我们定义好的一个记录类型。 用于记录文件的各个参数,比如大小,属性,文件名等等; Path: string;begin Path := extractfilepath(Dir); // 利用 ExtractFilePath函数 将文件的路径转为绝对路径然后复制给Path; if FindFirst(Dir, faAnyF 阅读全文
posted @ 2012-06-21 17:55 梦断难寻 阅读(4693) 评论(0) 推荐(0) 编辑