delphi今天写了一个递归的文件查找的函数，结果发现没有返回值，研究了好久原来是函数的自身调用引出的问题：
function GetDirFile(TypeName: String; DirName: String):tstringlist;
var
StrList:tstringlist;
上面这个函数会在里面调用一下自身，结果在函数中定义的strlist在下一次调用中已经无效了。
故这个函数没有返回值了
解决的办法就是strlist在全局定义，暂时没找到更好的办法，只好先这么做，不过老是觉得挺别扭的。

www.chaochaoblog.com

如无特别说明，本博客文章皆为原创。转载请说明，来自吵吵博客。

原文链接：http://chaochaoblog.com/archives/44

吵吵微信朋友圈，请付款实名加入：