查找

Question

各位，大家好！
 小弟一事相求：
  
 想用DELPHI实现一个类似WINDOW2000的搜索功能：
  
 用控件STRINGGRID显示，不知道怎么写哪个递归函数（即先判断是不是文件夹，搜索文件夹下是不是含有要找的文件，一步步下去）；
 
在线等待！！！急急急、、、、、

Answer 1

FWorkDir := WorkDir;  if (FindFirst(FWorkDir + '\*.*', faDirectory, SearchRec) = 0) then
  begin
    repeat
      if (SearchRec.Attr and faDirectory = faDirectory) then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          memo1.lines.add('[' + SearchRec.Name + ']');
          MyList.Add('[' + SearchRec.Name + ']<br><ul>');
          getFavorite(WorkDir + '\' + SearchRec.Name);
        end;
      end;
    until FindNext(SearchRec) <> 0;
  end;
  FindClose(SearchRec);  if (FindFirst(FWorkDir + '\*.*', faDirectory, SearchRec) = 0) then
  begin
    repeat
      if (SearchRec.Attr and faDirectory <> faDirectory) then
      begin
        memo1.lines.add(Copy(SearchRec.Name, 1, Length(SearchRec.Name) - 4));
        MyList.Add('<li><a href="' + GetUrlFileURL(FWorkDir, SearchRec.Name) + '">' + Copy(SearchRec.Name, 1, Length(SearchRec.Name) - 4) + '</a></li>');
      end;
    until FindNext(SearchRec) <> 0;
  end;
  FindClose(SearchRec);
  MyList.Add('</ul>');end;

Answer 2

你这边的GetFavorite()是什么函数，什么功能