查出某目录下所有包含"test"字符串的文件来，如何做算法？

Question

var  nnode:Ttreenode;
  Dpath:string;
  i,j:integer;
  s:TSearchRec;
begin
  chdir(path);
  if Dtemp=path then
  begin  end;
  i:=faDirectory;  
  if FindFirst('*.*',i,s) = 0 then
  begin    repeat
      if (s.Attr and i)>0then
      begin
        if (s.Name<>'.')and(s.Name<>'..')and (s.name='test')then
        begin 
          nnode:=DirectoryTreeBuf.Items.AddChild(foldernode,s.name);
          Dpath:=path+s.name+'\';
          readfolder(nnode,Dpath,Dtemp);//这个是这个函数的名字！
        end;      end;    until  FindNext(s) <> 0 ; 
    findclose(s);
  end;
  if Dtemp=path then
  begin  end;end;

Answer 1

var  nnode:Ttreenode;
  Dpath:string;
  i,j:integer;
  s:TSearchRec;
begin
  chdir(path);
  if Dtemp=path then
  begin  end;
  i:=faDirectory;  
  if FindFirst('*.*',i,s) = 0 then
  begin    repeat
      if (s.Attr and i)>0then
      begin
        if (s.Name<>'.')and(s.Name<>'..')and (s.name='test')then
        begin 
          nnode:=DirectoryTreeBuf.Items.AddChild(foldernode,s.name);
          Dpath:=path+s.name+'\';
          readfolder(nnode,Dpath,Dtemp);//这个是这个函数的名字！
        end;      end;    until  FindNext(s) <> 0 ; 
    findclose(s);
  end;
  if Dtemp=path then
  begin  end;end;