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
谢谢大家!
...全文
43 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ccat 2001-07-03
有机会联系lx1978@263.net
回复
ccat 2001-07-03
谢谢老哥捧场,这20分就送了吧。
回复
ccat 2001-06-27
补充一句,有一位朋友调试我的代码,也被删了C盘,我很难过,所以向他道歉,并给他8分。
回复
InsideDelphi 2001-06-27
呵呵,know了
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4895

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2001-06-27 12:46
社区公告
暂无公告