FindFirst的第二个参数为什么不起作用？(50)

各位大侠，我用下面的代码，只是想列表指定目录下的所有子目录来，第二个参数使用了faDirectory，为什么还会找出文件信息来？如果第二个参数不是这么用的该如何使用？谢谢！procedure TForm1.Button2Click(Sender: TObject);var ResultAttr: TSearchRec; SearchResult: Integer;begin ListBox1.Items.Clear; SearchResult := FindFirst('E:/hjk/work/Controls/*', faDirectory, ResultAttr); while SearchResult = 0 do begin ListBox1.Items.Add(ResultAttr.Name); SearchResult := FindNext(ResultAttr); end; FindClose(ResultAttr);end;

根据 ResultAttr.Attr 判断

谢谢foam，我知道可以根据 ResultAttr.Attr 判断，但是第二个参数的作用是什么呢？该如何使用？谢谢了！

该参数只对FindFirst产生影响，不会对下面的FindNext函数产生影响，因此你FindFirst出来的结果肯定是文件夹，而不会是文件，但执行FindNext的时候，该参数的作用就没了。

原来如此，谢谢