Delphi函数：遍历文件夹的实用方法

版权申诉

151 浏览量更新于2024-07-08 收藏 663KB PDF 举报

"该PDF文档提供了一个在Delphi编程环境下实现的函数，用于遍历指定路径下的所有文件夹及文件。该函数名为`MakeFileList`，其主要功能是接收两个参数：`Path`（需要搜索的起始目录路径）和`FileExt`（可选的文件扩展名过滤条件）。如果`Path`不以反斜杠结尾，函数会自动添加一个，确保路径正确。函数首先检查输入的路径是否真实存在，如果不存在则清空结果并结束搜索。接着，使用`FindFirst`函数从指定路径开始查找，过滤掉`.`（当前目录）和`..`（上一级目录）等特殊文件。对于每个找到的文件或文件夹，如果`FileExt`参数被提供并且文件扩展名与之匹配，则将文件名添加到结果的TStringList中。这样，调用者可以通过`ListBox1.Items`来显示符合筛选条件的文件列表。 `MakeFileList`函数适用于需要动态查找文件和文件夹的应用场景，如文件管理、批量操作等，尤其适合Delphi开发的Windows程序。它利用了Delphi提供的系统函数，确保了搜索的效率和准确性。通过这个函数，开发者可以轻松处理文件系统级别的操作，提升应用程序的功能性和用户体验。"

+inttostr(random(9))+inttostr(random(9))

+inttostr(ra ndom(9))+inttostr(random

(9));//󰩉󰩉,󱕜󳃼󲱘󱮍󲊩. memo1.Lines.Add

(randid); end; end. ==================

object Form1: TForm1 Left = 571 Top = 224

BorderIcons = [biSystemMenu, biMinimize]

BorderStyle = bsSingle Caption = #26102

#38388#24046#20989#25968 ClientHeight = 249

ClientWidth = 201 Color = clBtnFace

Font.Charset = DEFAULT_CHARSET Font.Color =

clWindowText Font.Height = -11 Font.Name =

'MS Sans Serif' Font.Style = []

OldCreateOrder = False PixelsPerInch = 96

TextHeight = 13 object Button1: TButton

Left = 8 Top = 8 Width = 185 Height = 25

Caption = #28436#31034#26102#38388#24046#

20989#25968 TabOrder = 0 OnClick =

Button1Click end object Memo1: TMemo Left =

8 Top = 40 Width = 185 Height = 201

TabOrder = 1 end end 󲳌󰝇󰟑󱭄󰽖󰏟: { Range

query functions } function YearsBetween

(const ANow, AThen: TDateTime): Integer;

function MonthsBetween(const ANow, AThen:

TDateTime): Integer; function WeeksBetween

(const ANow, AThen: TDateTime): Integer;

function DaysBetween(const ANow, AThen:

TDateTime): Integer; function HoursBetween

(const ANow, AThen: TDateTime): Int64;

function MinutesBetween(const ANow, AThen:

TDateTime): Int64; function SecondsBetween

(const ANow, AThen: TDateTime): Int64;

function MilliSecondsBetween(const ANow,

AThen: TDateTime): Int64;

{ Range spanning functions } { YearSpan

and MonthSpan are approximates, not exact

but pretty darn close } function YearSpan

(const ANow, AThen: TDateTime): Double;

function MonthSpan(const ANow, AThen:

TDateTime): Double; function WeekSpan(const

ANow, AThen: TDateTime): Double; function

DaySpan(const ANow, AThen: TDateTime):

Double; function HourSpan(const ANow,

AThen: TDateTime): Double; function

剩余22页未读，继续阅读

jjjjle

粉丝: 0
资源: 6万+

Delphi函数：遍历文件夹的实用方法

jsj_delphi数据库编程汇编.pdf

jsj_delphi数据库编程整理.pdf

新建名为jsjgroup的用户组，且用户组交由jsj1901_1管理；以jsj1901_1身份登录，并且让他加入jsj1901_1、jsj1901_2、jsj1901_3、jsj1901_4成为jsjgroup的成员。

在sql中将视图JSJ中，所有学生的年龄加1，并查看学生信息表中记录的改变情况。

用汇编写求表达式Y=A*X+B-C的值，已知A、B、C分别为存放在DA_1、DA_2、DA_3字节单元的无符号数,它们的值分别是：8、9、10，X存放在INPUT字节单元，把结果Y放入JSJ_10字单元。

编写Shell脚本，批量新建10个用户，用户名为jsj1、jsj2、...、jsj10，并批量设置密码

编写shell脚本,批量添加用户，用户名为 jsj01-jsj99。

修改jsj 用户的家目录

java.lang.NullPointerException at java.util.Properties$LineReader.readLine(Properties.java:434) at java.util.Properties.load0(Properties.java:353) at java.util.Properties.load(Properties.java:341) at com.jsj.isdt.utils.DruidUtils.<clinit>(DruidUtils.j

最新资源