各位大侠帮帮我啊！！！！

Question

sr: TSearchRec;
FindFirst(Local_path + '\*.*', faDirectory, sr)这句话什么意思啊，还有 FindNext(sr)？
这两个函数的作用是什么？返回值是什么？

Answer 1

查找目录Local_path 下的所有子目录
FindFirst找到第一个目录项,FindNext查找下一个匹配的目录项

Answer 2

FindFirst(Local_path + '\*.*', faDirectory, sr) 和 FindNext(sr) 搭配使用是在Local_path 目录下查找所有子目录。完整的参考写法：procedure FindAllDir(APath, AExtName: string);
var
  SearchRec: TSearchRec;
begin
  if FindFirst(APath + '\*.*', faDirectory, SearchRec) = 0 then
  begin
    repeat
      Memo1.Lines.Add(APath + '\' + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
    SysUtils.FindClose(SearchRec);
  end;
end;