TListView组件显示文件夹中的文件

原创 2003年08月13日 10:34:00

procedure GetDirectories(list: TlistView; Directory: string; Item: Tlistitem; IncludeFiles: boolean);
var
SearchRec: TSearchRec;
begin
   list.Items.BeginUpdate;//准备更新
   list.Items.Clear;  //清空list内容
   if Directory[length(Directory)] <> '/' then //判断路径 
         Directory := Directory + '/';  //设置路径
   if FindFirst(Directory + '*.*',faDirectory,SearchRec) = 0 then       begin
             repeat   
             if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then  
                 begin
                        if (SearchRec.Attr and faDirectory > 0) then                               begin  Item := list.Items.Add;  //增加item
                                        item.Caption:=SearchRec.Name; 
                                        item.ImageIndex:=6;
                              end;
                        GetDirectories(list,Directory + SearchRec.Name,Item,IncludeFiles);
                 end
                               else
               if IncludeFiles then
                            if SearchRec.Name[1] <> '.' then
                                    begin
                                           item:=list.Items.Add;
                                           item.Caption:=SearchRec.Name;
                                           item.ImageIndex:=6;
                                    end;
                      until FindNext(SearchRec) <> 0;
//FindClose(SearchRec);
               end;
      list.Items.EndUpdate;
end;

定义Directory:

procedure makedir(modulname,pathname,dirname,filepath:string);//创建目录(共4级,朋友如果觉得用得上的话,可以自己加参数)
begin
try
    if not directoryexists(frootpath+modulname) then
      createdir(FRootPath+modulname);
    if not DirectoryExists(FRootPath+modulname+'/'+pathname) then
    createdir(FRootPath+modulname+'/'+pathname);
    if not directoryexists(FRootPath+modulname+'/'+pathname+'/'+dirname) then
    createdir(FRootPath+modulname+'/'+pathname+'/'+dirname);
    if filepath<>'' then
    if not directoryexists(FRootPath+modulname+'/'+pathname+'/'+dirname+'/'+filepath) then
    createdir(FRootPath+modulname+'/'+pathname+'/'+dirname+'/'+filepath)
    except
    On E:Exception do begin
    abort;
    end;
    end;
    banjin.N21.Enabled:=true;
   liucheng.MenuItem1.Enabled:=true;
   yanzheng.N21.Enabled:=true;
    banjin.SpeedButton1.Enabled:=true;
    liucheng.SpeedButton1.Enabled:=true;
    yanzheng.SpeedButton1.Enabled:=true;
    banjin.toolbutton1.Enabled:=true;
    liucheng.toolbutton1.Enabled:=true;
    yanzheng.toolbutton1.Enabled:=true;
    if filepath='' then
    filespath:=FRootPath+modulname+'/'+pathname+'/'+dirname+'/'+filepath else
    filespath:=FRootPath+modulname+'/'+pathname+'/'+dirname+'/'+filepath+'/';
    banjin.StatusBar1.Panels[0].Text:='你目前所在的位置:'+filespath;
    liucheng.StatusBar1.Panels[0].Text:='你目前所在的位置:'+filespath;
    yanzheng.StatusBar1.Panels[0].Text:='你目前所在的位置:'+filespath;
end;
如果是二级或一级目录的话,只要加上if filepath<>'' then
类似的判断就可以了,例如:makedir('设计规范','电子件','电路设计规范','');

 

注:在这里写的两个过程没有实现读取windows的图标,如果想实现这一功能的话要自己动手写了 ^_^

Delphi中用TListView显示数据库数据

首先创建一个新的项目,然后向窗体上添加一个TQuery组件和一个TListView组件. 设置TQuery组件的DatabaseName属性设置为DBDEMOS,SQL属性设置为select * fr...
  • rryr2
  • rryr2
  • 2009年10月15日 18:47
  • 1580

delphi 7中Tlistview的使用

今天刚注册了,  先发一篇文章试试, 照朋友的话说, 我是稀缺人才, 现在没有人用delphi了, anyway, 把自己多年的一点经验share一下. 如果不使用第3方空间的话, delphi 中的...
  • t2wei
  • t2wei
  • 2007年06月21日 11:57
  • 1182

JAVA中的文件选择控件

在在java中也有着和vc中一样的文件选择控件,那就是JFileChooser,该控件可以实现和window下的文件选择控件同样的功能,具体的用法如下:JFileChooser chooser = n...
  • guhong5153
  • guhong5153
  • 2011年04月28日 15:10
  • 3931

使用命令行如何让.git文件夹显示

如果你在gitHub上clone之后的项目目录中看不到.git文件,你需要让隐藏的文件可见。具体做法就是打开一个Terminal窗口,输入以下命令:1.defaults write com.apple...
  • FreeTourW
  • FreeTourW
  • 2016年08月29日 14:37
  • 850

TListView的用法(转载)

原文地址:http://www.cnblogs.com/sideandside/archive/2007/03/26/688707.html TListView用法1.TListView方法:proc...
  • Yang_Seal
  • Yang_Seal
  • 2010年07月28日 14:52
  • 3843

玩转安卓 Android系统文件夹结构解析(绝对有用)

//system//app这个里面主要存放的是常规下载的应用程序,可以看到都是以APK格式结尾的文件。在这个文件夹下的程序为系统默认的组件,自己安装的软件将不会出现在这里,而是//data//文件夹中...
  • WuLex
  • WuLex
  • 2016年11月03日 23:18
  • 1509

Linux学习5之shell显示当前目录下所有的文件和文件夹

hadoop@Mcnode4:~/cloud/adam/xubo/data/test20160310/bwa3sh/test142234$ cat showFileAndDirectory.sh #...
  • bob601450868
  • bob601450868
  • 2016年03月15日 20:27
  • 1298

Asp.net显示文件夹中的图片

2010年7月7日星期三 Asp.net显示文件夹中的图片: 参考:http://space.cnblogs.com/question/7534/ using System.IO; //p...
  • dingdangxiaoma
  • dingdangxiaoma
  • 2010年07月07日 15:21
  • 2326

TListView组件使用方法

引用CommCtrl单元procedure TForm1.Button1Click(Sender: TObject);begin   ListView_DeleteColumn(MyListView....
  • IORILI
  • IORILI
  • 2003年08月01日 18:58
  • 1138

MFC获取文件夹下所有文件的名字ListBox

临时用到,就写了一下,保存一下成果! 基于List Box的界面显示文件名列表: 运行效果图: 具体实现主要是添加两个消息响应,一个BUTTON控件的,一个是ListBox控件的LBS_SEL...
  • lxw907304340
  • lxw907304340
  • 2015年09月22日 16:20
  • 631
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:TListView组件显示文件夹中的文件
举报原因:
原因补充:

(最多只允许输入30个字)