[2018年最新整理][delphi函数]一个遍历所有文件夹的函数.docVIP

[delphi函数] 一个遍历所有文件夹的函数2010-03-12 15:13 遍历一个文件夹中的所有文件，有时候非常的有用，比如结合excel操作，就可以完成对报表的数据的合成和整理。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StrUtils, StdCtrls; type TForm1 = class(TForm) lst1: TListBox; btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {------------------------------------------------------------------------------- 过程名: MakeFileList 遍历文件夹及子文件夹 作者: SWGWEB 日期: 2007.11.25 参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名 返回值: TStringList Eg：ListBox1.Items:= MakeFileList( E:\极品飞车,.exe) ; ListBox1.Items:= MakeFileList( E:\极品飞车,.*) ; -------------------------------------------------------------------------------} function MakeFileList(Path,FileExt:string):TStringList ; var sch:TSearchrec; begin Result:=TStringlist.Create; if rightStr(trim(Path), 1) \ then Path := trim(Path) + \ else Path := trim(Path); if not DirectoryExists(Path) then begin Result.Clear; exit; end; if FindFirst(Path + *, faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = .) or (sch.Name = ..)) then Continue; if DirectoryExists(Path+sch.Name) then // 这个地方加上一个判断，可以区别子文件夹河当前文件夹的操作 begin Result.AddStrings(MakeFileList(Path+sch.Name,FileExt)); end else begin if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt=.*) then Result.Add(Path+sch.Name); end; until FindNext(sch) 0; SysUtils.FindClose(sch); end; end; {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin btn1.Caption:=loading; lst1.Items:= MakeFileList(D:\Program Files,.exe); btn1.Caption:=ok; end; end. [Delphi函数] URL编码的转换问题即%百分号网址问题我们常用到的搜索引擎，比如百度、谷歌。 我们举个例子，比如搜“我爱你”： 百度：/s?wd=%CE%D2%B0%AE%C4%E3 谷歌：/search?hl=zh-CNsource=hpq=%E6%88%91%E7%88%