delphi 文件或目录转换成 TreeView

//文件或目录转换成 TreeView

procedure DirToTreeView(Tree: TTreeView; Directory:
string; Root: TTreeNode;
IncludeFiles:
  Boolean);
var
  SearchRec         :
TSearchRec;
  ItemTemp          :
TTreeNode;
begin
  with Tree.Items do
  try
    BeginUpdate;
    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
            Root
:= AddChild(Root,
SearchRec.Name);
          ItemTemp
:=
Root.Parent;
          DirToTreeView(Tree,
Directory + SearchRec.Name, Root,
IncludeFiles);
          Root
:=
ItemTemp;
        end
        else if
IncludeFiles then
          if SearchRec.Name[1]
<> ‘.‘ then
            AddChild(Root,
SearchRec.Name);
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
    end;
  finally
    EndUpdate;
  end;
end;

procedure TForm1.ToolButton7Click(Sender:
TObject);
var
  node:TTreeNode;
begin

node:=nil;//放在OnCreate下面可以正常
    DirToTreeView(TreeView1,‘Z:\‘,node,False);
end;

来自为知笔记(Wiz)

delphi 文件或目录转换成 TreeView

时间: 2024-10-07 05:51:24

delphi 文件或目录转换成 TreeView的相关文章

怎么把pdf文件内容都转换成jpg图片

将文档页面的内容转成图片文件也是常遇到的事情,如果只是针对几个页面来说,通过截图就可以实现了,但是往往需要转换的页面内容较多,甚至是将整个文档都转换成为图片.如果需要转换的文档是pdf文件的话,又该如何转为图片呢? 其实不管是比较常见的word.ppt文档,还是pdf这种格式的文件,要转换成图片都可以通过转换工具来进行转换.如果不借助任何工具,那么可以在线pdf转图片. 在线转换是通过相关网页转换应用来操作的.这种方法需要先进入转换应用的主页,选择所需要转换的类型,将pdf转为图片,就点击进入到

dwg文件怎么打开转换成WMF格式?

dwg文件怎么打开转换成WMF格式?相信大家经常会遇见的问题就是需要将CAD图纸转换成图片格式的操作,但是图片也有很多的格式,需要我们就行选择,今天小编就要来教大家的就是需要将擦的图纸文件转换成图片中的WMF格式的全部操作步骤,希望这可以帮助大家,能够进行采纳! 步骤一:首先需要打开的是你们电脑上面的CAD转换器软件,如果电脑上没有这款软件的小伙伴们就需要去到浏览器上下载安装了,小编在这里使用的就是这款"迅捷CAD转换器"软件!步骤二:将软件完成下载后安装到你们的电脑桌面上然后就可以进

电子书文件如何在线转换成PDF文件

电子书文件如何在线转换成PDF文件,想必很多朋友都喜欢看电子书吧,在如今这个社会,电子书渐渐的要代替纸质书籍了,然而因为PDF文件的各种优点,越来越多的人喜欢将电子书转换成PDF文件进行阅读,今天小编来向大家讲解一下时如何进行在线转换的,步骤如下:步骤一:打开电脑进入浏览器内在百度首页搜索"迅捷PDF在线转换器"找到相对应的页面.(可以提前将电子书文件保存至桌面上) 步骤二:进入到在线的页面后在首页内的导航栏上找到文档转换,并在下拉框内选择"电子书转PDF". 步骤

如何将文件PDF格式转换成Word格式

现在很多都在问:如何将文件PDF格式转换成Word格式.很多人在工作或者学习当中,都会有这样的需求.如果是文字版本的Word转换成的PDF文件,想要将PDF转换成Word,可以使用转换PDF文件格式的工具,下面教大家如何使用工具来转换文档格式.(1)打开手机,在手机上的应用市场上搜索"PDF转换大师",找到可以转换文档格式的工具,将其下载到手机上.(2)打开软件,选择需要转换的功能,即单击软件的"PDF转其他格式"即可,这是操作的第一步.(3)选择文件,点击转换功能

Word文件如何在线转换成excel文件

Word文件如何在线转换成excel文件,在运用到word和excel两个办公软件的时候都知道可以在word文档里面插入excel表格,那如何将word文件转换成excel表格呢,小编今天就来告诉大家.第一步:打开电脑,进入浏览器搜索"迅捷pdf在线转换器"找到相应的网页,并点进去.第二步:进入在线转换器的首页后,可以看到页面有很多关于办公的功能选项,我们选择文档转换,并在弹出的下拉框内选择"word转excel".第三步:进入转换器的功能页后,点击页面内的&quo

办公中的PDF文件怎么在线转换成可编辑的TXT文档

办公中的PDF文件怎么在线转换成可编辑的TXT文档,TXT格式一般阅读起来比较方便,特别是看文件小说什么的都比较适合转换成TXT格式存在手机里观看,因此我们经常需要将PDF文件转换成TXT文件,那怎么转换的呢,请看下面的介绍. 搜索关键词迅捷PDF在线转换器,点开界面. 点开转换器首页,点击文档转换,在下拉框中找到PDF转TXT. 点击选择文件,弹出文件夹选项,选择你需要转换的PDF文件添加. 选择完文件后,点击开始转换. 文件转换需要一些时间,耐心等待转换进度完成. 转换完成后,可点选择直接打

PDF文件怎么在线转换成PPT格式

PDF文件怎么在线转换成PPT格式,职场新人面对PDF.Word.Excel.PPT文档格式之间的转换时常常是头疼不已,对于各种文件格式之间的转换有时操作起来也不同,今天有网友问我关于"PDF转PPT"的转换过程,现在小编就来告诉大家.第一步:打开电脑将需要转换的PDF文件添加至桌面,然后进入浏览器内搜索"迅捷PDF在线转换器",找到在线页面.第二步:进入到在线转换器的页面内后,点击页面上方导航栏内的"文档转换"然后选择下拉框内的"PD

pdf文件内容如何转换成图片

在将pdf文件或者是word文档转换成为图片时,一般的方法都是讲如何使用截图的方式来把文档内容转换成图片,但是除此之外,还有什么方法可以把pdf以及office文档转换成图片吗? 如果只是将pdf文件转成图片,可以用在线工具把pdf文档的内容转换成图片的形式,这在一些专门的pdf在线转换应用中可以实现. 首先找到在线pdf转图片,并进入到首页.在首页中会有pdf转成图片的选项,直接选择该项,进入到转换的操作页面. 点选择文件,然后就可以在选择一个需要进行转换的pdf文档,选择的文件会添加到转换页

九、将cs文件快速的转换成可执行文件和响应文件(配置编译开关的文件)

1.将包含多个类型的源代码文件转换为可以部署的文件.有如下Program.cs的文件,代码如下: public sealed class Program { public static void Main(string[] args) { System.Console.WriteLine("Hello World"); System.Console.ReadKey(); } } 该应用程序实现了打印"Hello World"的功能,该应用程序中引用到的系统类型都来自