还是FindFirst、FindNext问题!!!

[xiaofeng_cxy]

procedure TForm1.Button1Click(Sender: TObject);
var
sr:TSearchRec;
begin
lb.Items.Clear;
if FindFirst(GetDirectoryName(dlb.Directory)+'*.*',faDirectory,sr)=0 then
lb.Items.Add(sr.Name);

while FindNext(sr)=0 do
if ((sr.Attr and faDirectory)=faDirectory) then
lb.Items.Add(sr.Name);

end;
这样的一段代码，对于当前目录下所有的子目录都可以找到，但是有个问题是,它连
'.','..'都算为一个目录了，面我将
if ((sr.Attr and faDirectory)=faDirectory) then

改为if ((sr.Attr and faDirectory)=faDirectory) and ((sr.Name='.')or(sr.Name='..'))then
...

还是会有'.'出现，面'..'就不出现了!
不知何解，请指教!!

[xiaofeng_cxy]

没有人吗？
我顶!!

[xiaofeng_cxy]

不知道'.'是不是指当前目录？

[LuZhou]

改成不等于：！=

[xiaofeng_cxy]

不好意思，刚刚是打错了，本来就是
((sr.Name<>'.')and(sr.Name<>'..') then
lb.Items.Add(sr.Name);

可是这样还是会在ListBox的第一条就加上了'.'!!
不知道这是为什么？

[i_Fan]

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

[xiaofeng_cxy]

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

这下就只有一个 '.'出现
别的什么都没有了!!!
没有高手指教一下吗？

[Weilibo]

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

[xiaofeng_cxy]

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