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