delphi XE2遍历文件夹下的指定扩展名文件

西西最近在学Delphi,哈,没什么基础,就想着在网上找点现成的代码,结果找了好多都调试不出来,可能是代码有点老了,或者跟XE2不兼容。

今早晨找高手艾老师请教了,结果他劈理帕里几下就弄好了,汗颜啊!!(一下代码在Delphi7里可能不兼容,XE2调试的。)

需要加上uses
Types, IOUtils

procedure TForm1.Button1Click(Sender: TObject);
var
files: TStringDynArray;
str: string;
begin
files := TDirectory.GetFiles('c:\', '*.log', TSearchOption.soAllDirectories);
Memo1.Clear;
Memo1.Lines.BeginUpdate;
for str in files do
begin
memo1.Lines.Add(str);
DeleteFile(str);
CopyFile(PChar(str), PChar('C:\Users\Administrator\Desktop\新建文件夹 (3)\' + ExtractFileName(str)), False);
end;
Memo1.Lines.EndUpdate;
end;

哈,以上代码也是从万一老师的博客找的。感谢前辈高手万一老师,学delphi,这个http://www.cnblogs.com/del 可不能少,万一老师的博客。也很谢谢艾老湿 哦。

分类:默认分类 时间:2012-01-05 人气:5
本文关键词:
分享到:

相关文章

  • Embarcadero Delphi XE2 完整版/精简版下载(支持Ios开发) 2012-04-29

    伟大的 Embarcadero RAD Studio XE2 终于发布了 这次最大的亮点 支持 x64位开发,支持ios 等,希望这一次的Delphi又是一次历史性的革命。 Embarcadero Delphi XE2 完整版下载 终极应用程序开发套件(Embarcadero RAD Studio XE2) 特别版 评分: 3.5 类别: 编程工具 大小:2.25G 语言: 英文 查看详细信息 >> Embarcadero Delphi XE2 Lite 精简版 lsuper制作 D

  • 在delphi Xe2 下面创建您的第一个iOS程式(中文) 2013-05-03

    用Delphi Xe2 开发第一个IOS程序 Delphi XE2 完整版: http://www..com/soft/33280.html Delphi XE2 Lite (精简版) http://www..com/soft/33387.html 原文 I have been excited for a while to build my own iOS application using Delphi XE2 and FireMonkey. First I installed RAD Stu

  • Delphi XE2 官方完整 delphicbuilder_xe2_win_dl.iso下载 2014-10-31

    Delphi 最新版本 XE2 官方ISO文件下载地址: http://altd.embarcadero.com/download/radstudio/xe2/delphicbuilder_xe2_win_dl.iso 文件大小: 2.33G MD5: de8b9f897e2ad678643b64898470b707 Delphi Prism XE2 - ISO 1.28Ghttp://altd.embarcadero.com/download/prism/xe2/prism_xe2_win.i

  • RAD STUDIO Delphi XE2 试用版官网已提供下载 2014-06-28

    https://downloads.embarcadero.com/free/rad_studio/ 可申请试用码,速度也不错! Selecting the "I Agree" button is a confirmation of your agreement that you comply, now and during your use of the product, with each of the following statements: -You are not a citizen

  • Embarcadero发布新版RAD Studio XE2开发工具套件(支持64位支持Ios和安卓) 2013-03-22

    新版包含了10多年来最深入全面的特性升级。RAD Studio XE2中包含了新版本的Delphi、C++Builder、Prism和RadPHP。 主要特性包括完整的Delphi 64位Windows支持,通过全新的FireMonkey富商业应用平台支持Mac OSX和iOS,以及通过RadPHP XE2支持安卓web和移动应用开发。 对Delphi XE2和C++Builder XE2来说,一个极其重要的新特性就是FireMonkey,业界第一款用于创建商业软件的原生的能全面利用到CPU和G

  • delphi 编程常用的第三方控件 2013-04-10

    Delphi高手常用的控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 Devexpress VCL 这个基本上覆盖了系统界面及数据库展示的方方面面,是做桌面系统必备的一套控件,目前的版本是2011.2.3, 支持win32 及win64。 AutoUpgrader 这个是自动更新的一个小控件,适合桌面程序自动更新,但是自从2007 年后,就没有更新了,我对其进行了修改,使其可以安装在Delphi XE2 上, 同时支持win64。 Devart 公司出品的UniDAC,ODAC

  • 自定义"组合"组件使用 VCL Style 2014-01-29

    这类组件继承自“TwinControl”或其子类如“TCustomControl”,其实大多数特性都已经继承过来了,但是有个问题,背景不能应用属性。 如: 我最开始的想法是 用主要窗体背景Color替换控件窗体的Color; constructor TLyStateLabel.Create(AOwner: TComponent); begin … self.Color:=AOwner.Color; … end; 并且重载 procedure Paint; virtual; 结果没有效果。 后来想

  • delphi 中对注册表的操作 2012-01-10

    在Delphi 中对windows注册表进行查找,读写等操作 Delphi中对注册表的读写过程简介 在DelPhi中为程序员提供了一个Tregistry类,它提供了众多丰富的方法来完成对注册表的修改。 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。   一、创建和释放TRegistry对象   1.创建TRegistry对象。为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create;   2.释放TRegistr

  • delphi 选择文件对话框 TOpenDialog组件的用法 2012-01-16

    在Delphi中我们需要打开一个文件或选择一个文件可以用到 TOpenDialog组件,下面来介绍一下 TOpenDialog 的具体用法. TOpenDialog 在Delphi 的 Dialogs 下面 1.TOpenDialog组件的典型用法 “打开”对话框是用TOpenDialog组件实现的,TOpenDialog组件是非可视组件。 Filter属性用于设置文件过滤器,让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号“.”按钮,打开“Filter.Editor”对

Copyright (C) quwantang.com, All Rights Reserved.

趣玩堂 版权所有 京ICP备15002868号

processed in 0.050 (s). 10 q(s)