怪事：我的findfirst怎么只返回目录而没有返回文件，请高手指点！

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  ret: Integer;
  filename: string;
  path: string;
begin
  path := 'c:\temp\';
  ret := FindFirst(path + '*.*', faAnyfile, sr);
  while ret = 0 do begin
    filename := sr.name;
    ShowMessage(filename);
    ret := FindNext(sr);
  end;
  FindClose(sr);
end;

Answer 1

path="c:\\demo\\";
ret=findfirst(path+"*.*",faAnyfile,sr);
while(ret==0)
{
  filename = sr.name;
  ret = findnext(sr);
}
FindClose(sr);

Answer 2

if (SearchRec.Attr and faDirectory)=0 then //表示你要寻找文件

Answer 3

FindFirst不会自动遍历目录里面的文件.
给你一个Delphi procedure:procedure FindFiles(Path: String);
var sr: TSearchRec;
    ret: Integer;
begin
  ret := findfirst(Path + '\*.*',faAnyFile,sr);
  while(ret=0) do
  begin
    if Pos('.',sr.Name) = 0 then
      FindFiles(Path + '\' + sr.name);    Form1.Memo1.Lines.Add(sr.name);
    ret := findnext(sr);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFiles('c:\demo');
end;

Answer 4

I'm sorry,FindClose is lost.procedure FindFiles(Path: String);
var sr: TSearchRec;
    Ret: Integer;
begin
  Ret := FindFirst(Path + '\*.*',faAnyFile,sr);
  while(Ret=0) do
  begin
    if Pos('.',sr.Name) = 0 then
      FindFiles(Path + '\' + sr.name);    Form1.Memo1.Lines.Add(sr.name);
    Ret := findnext(sr);
  end;
  FindClose(sr);
end;