CCAT在此致谢：关于"一个小程序的大错误：大家来捉虫"

ccat 2001-06-27 12:46:21

小猫我贴的“一个小程序的大错误：大家来捉虫”
http://www.csdn.net/expert/topic/169/169666.shtm
得到各位大虾的热情回应，让我学了不少东西。原想再贴两天，但大家的热情出乎我的意料，再有人跟下去小猫我就给不出分了，散分！（已经给出去了噢）
实际上，像小虾所说，由于我在程中有
TheDir := IncludeTrailingBackslash(TheDir);
rec := FindFirst(TheDir + '*.*', faAnyFile, Search);
第一行是给路径加了反斜杠，第二行加了*.*，所以没参数时就等于从当前盘的根目录开始……（Deltree \*.*耶）
所以我的方法是加一个判断：
begin
if ParamStr(1) then
DoDelTree(ParamStr(1));
end.
其实这个小程序继续完善，完全可以做一个和Dos的Deltree一模一样，甚至更好的Deltree,比如读进参数之后，我先判断它是一个文件还是一个目录，这些细节就不再讨论了，有兴趣的朋友给我发邮件联系吧：lx1978@263.net
谢谢大家！

...全文