还是FindFirst、FindNext问题!!!

不好意思，刚刚是打错了，本来就是
((sr.Name<>'.')and(sr.Name<>'..') then
  lb.Items.Add(sr.Name);可是这样还是会在ListBox的第一条就加上了'.'!!
不知道这是为什么？

解决方案 »

  1.   

    改为if (sr.Attr = faDirectory) and ((sr.Name<>'.')or(sr.Name<>'..'))then//:)
      

  2.   

    if (sr.Attr = faDirectory) and ((sr.Name<>'.')or(sr.Name<>'..'))then//:)这下就只有一个 '.'出现
    别的什么都没有了!!!
    没有高手指教一下吗？
      

  3.   

    使用Copy函数:
    if (sr.Attr = faDirectory) and (Copy(sr.Name,1,1)<>'.') then
      

  4.   

    我知道了，有'.'是因为第一个FindFirst找出来的目录就是'.',而我没有控制它显示!!
    谢谢各位