Delphi下遍歷文件夾下所有文件的遞歸算法

procedure MakeTree(var slFile: TStrings; const FileExt: string);

var

  Sr : TSearchRec;

  Err : integer;

  TrSize, FilePath : string;

begin

  Err:=FindFirst('*.*', $11, Sr) ;

  While (Err = 0) do

  begin

    if Sr.Name[1] <> '.' then

    begin

      if FileExt = '' then

        slFile.Add(sr.Name)

      else

      begin

        if AnsiUpperCase(Copy(sr.Name, Length(sr.Name) - 3, 4)) = AnsiUpperCase(FileExt) then

          slFile.Add(sr.Name);

      end;

    end;

    if ((Sr.Attr and faDirectory) <> 0) AND (Sr.Name[1] <> '.') then

    begin

      ChDir(Sr.Name) ;

      MakeTree(slFile, FileExt);

      ChDir('..') ;

    end ;

    Err:=FindNext(Sr) ;

  end ;

end;

Delphi下遍歷文件夾下所有文件的遞歸算法

procedure MakeTree(var slFile: TStrings; const FileExt: string);
var
  Sr : TSearchRec;
  Err : integer;
  TrSize, FilePath : string;
begin
  Err:=FindFirst('*.*', $11, Sr) ;
  While (Err = 0) do
  begin
    if Sr.Name[1] <> '.' then
    begin
      if FileExt = '' then
        slFile.Add(sr.Name)
      else
      begin
        if AnsiUpperCase(Copy(sr.Name, Length(sr.Name) - 3, 4)) = AnsiUpperCase(FileExt) then
          slFile.Add(sr.Name);
      end;
    end;
    if ((Sr.Attr and faDirectory) <> 0) AND (Sr.Name[1] <> '.') then
    begin
      ChDir(Sr.Name) ;
      MakeTree(slFile, FileExt);
      ChDir('..') ;
    end ;

    Err:=FindNext(Sr) ;
  end ;
end;