DELPHI XE2 遍历子目录及文件《转》

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;
    FindClose(sch);
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  I : integer;
begin
  lst1.Items := MakeFileList(ExtractFilePath(Application.ExeName)+‘Report‘,‘.fr3‘);
  for I := 0 to lst1.Count -1 do
    begin
      lst1.Items[I] := StringReplace(StringReplace(lst1.Items[I],ExtractFilePath(Application.ExeName)+‘Report‘,‘‘,[rfReplaceAll, rfIgnoreCase]),‘\‘,‘‘,[rfReplaceAll, rfIgnoreCase]);
    end;
  if lst1.Items[0] = ‘‘ then
    lst1.Items.Delete(0);

    cbb1.Clear;
  for I := 0 to lst1.Count -1 do
    begin
      cbb1.Items.Add(lst1.Items[I]);
      cbb1.ItemIndex := 0;
    end;
  lst1.Clear;
end;
时间: 12-29

DELPHI XE2 遍历子目录及文件《转》的相关文章

Java遍历子目录

package com.imooc.io; import java.io.File; import java.io.IOException; //列出File的一些常用比如过滤.遍历等操作 public class FileUtils { //列出制定目录下(包括其子目录)的所有文件 public static void listDirectory(File dir)throws IOException{ if(!dir.exists()) { throw new IllegalArgument

Python扫描指定目录下(包括子目录)的文件

扫描指定目录下的文件,或者匹配指定后缀和前缀的函数. 如果要扫描指定目录下的文件,包括子目录,调用scan_files("/export/home/test/") 如果要扫描指定目录下的特定后缀的文件(比如jar包),包括子目录,调用scan_files("/export/home/test/", postfix=".jar") 如果要扫描指定目录下的特定前缀的文件(比如test_xxx.py),包括子目录,调用scan_files("

delphi xe2 opencv 学习

安装环境 delphi xe2 + opencv opencv 从下面的地方下载  https://github.com/Laex/Delphi-OpenCV然后按照 此网站的 说明 一项以项的 安装.重点在这里:安装opencv 的时候 代码有错误 {$ endif} 要修改为{$ ifend} 而且必须编译一次 发现一个错误 ,修改一个. 不能全部一次替换修改,因为有些不能改的(本来就正确).说不清道不明的,反正我这样搞完就 正常了. 另外一个需要注意的地方是: 32位系统好办. 如果自己的

Perl获取目录下文件或者包含子目录下文件

1 my $dir = "D:\\My_Work\\Temp"; 2 my @files = (); 3 4 #获取给定目录下文件 5 @files = get_dir_files($dir); 6 7 #获取给定目录以及子目录下文件 8 @files = get_dir_files_x($dir); 9 10 #获取目录下以及子目录下文件,返回的结果中包含路径 11 sub get_dir_files_x{ 12 my ($dir_p) = @_; 13 my @files = ()

Delphi 封装Frame到Dll文件

做项目的时候,发现这个Frame很好用,为了省空间.调用和修改方便,就将Frame封装到dll(动态链接库)里面,确实很好使. 效果图如下: 上图是临时测试用的,忘了将Frame的align设置成alClient,不过刚好可以看出来白色区域是从dll里加载的Frame,还调用了Frame的按钮单击事件. 下面是大概的建立流程: 1.File -> New -> Other -> Delphi Projects -> 新建一个Dll文件 2.然后继续 File -> New -

ls 列出目标目录中所有的子目录和文件

ls命令就是list的缩写缺省下ls用来打印出当前目录的清单如果ls指定其他目录那么就会显示指定目录里的文件及文件夹清单. 通过ls 命令不仅可以查看linux文件夹包含的文件而且可以查看文件权限(包括目录.文件夹.文件权限)查看目录信息等等. 1. 命令格式: ls [选项] [目录名] 2. 命令功能: 列出目标目录中所有的子目录和文件. 3. 常用参数: -a, –all 列出目录下的所有文件,包括以 . 开头的隐含文件 例子:[[email protected] /]# ls -a . 

关于Delphi XE2的FMX的一点点研究之消息篇

Delphi XE2出来了一阵子了,里面比较抢眼的东西,除了VCLStyle这个换肤的东西之外,另外最让人眼亮的应该是FMX这个东西了.万一的博客上都连载了一票的关于FMX的使用心得了.我还是没咋去关注,因为技术这个东西,天天在变,跟着他跑,俺伤不起啊!直到今天,看了一下盒子,然后群中也有人说关于FMX在Windows下面如何来发送消息的问题,说发送不了.实际上,FMX这个东西是一套跨平台机制的GUI类库,消息这个东西只是Windows下面的,所以发送消息这个说法应该不算通用.不过加以研究应该可

Delphi如何处理不同类型的文件

参考:http://www.cnblogs.com/railgunman/articles/1800318.html 程序设计当中,我们时常遇到需要处理文件.目录及驱动器的情况,这里将对如何处理不同类型的文件进行讲述 主要包括如何使用 TFileStream 类封装文件的输入/输出以及如何利用 32 位windows的主要特征——内存映射文件.将会学到如何创建一个封装内存映射文件功能的 TMemoryMappedFile类,并用它在文本文件中进行文本查询.还提供了一些关于选择驱动器.在树形目录中

glob函数 循环遍历子目录下的文件

<?php foreach (glob("ueditor\php\upload\image\*\*.png") as $filename) { echo "$filename size " . filesize($filename) . "\n"; } ?>

Linux下更改目录及其下的子目录和文件的访问权限

修改某个目录下所有文件的权限,如果子目录中的文件权限也要修改,则使用参数-R启动递归处理. 例如: 把/home/user目录的权限设置为rwxrwxrwx,不包括子目录: [[email protected] ~]# chmod 777 /home/user 把/home/user目录的权限设置为rwxrwxrwx,包括子目录: [[email protected] ~]# chmod -R 777 /home/user