一碗两块

摘要： 类型名称：TFilterPredicate类型定义：type TFilterPredicate = reference to function(const Path: string, const SearchRec: TSearchRec): Boolean;说明：由定义可以看出属于引用匿名函数类型(自己杜撰)，需重写，返回一个布尔值参数一：Path调用函数比如TDirectory.GetFileSystemEntries所传的Path，即初始的指定目录(不含目录下的子目录和文件)参数二：TSearchRec一个文件或文件夹结构(官方说明)，包含文件属性，比如SearchRec.Name，Pa 阅读全文

摘要： 使用函数：System.IOUtils.TDirectory.GetFileSystemEntries所有重载：class function GetFileSystemEntries(const Path: string): TStringDynArray;class function GetFileSystemEntries(const Path: string; const Predicate: TFilterPredicate): TStringDynArray;class function GetFileSystemEntries(const Path, SearchPattern.. 阅读全文

摘要： 使用函数：System.IOUtils.TDirectory.GetFiles所有重载：class function GetFiles(const Path: string): TStringDynArray;class function GetFiles(const Path: string; const Predicate: TFilterPredicate): TStringDynArray;class function GetFiles(const Path, SearchPattern: string): TStringDynArray;class function GetFile. 阅读全文

摘要： 使用函数： System.IOUtils.TDirectory.GetDirectories所有重载：class function GetDirectories(const Path: string): TStringDynArray;class function GetDirectories(const Path: string; const Predicate: TFilterPredicate): TStringDynArray;class function GetDirectories(const Path, SearchPattern: string): TStringDynAr.. 阅读全文

摘要： 示例：一个朋友需要而编写的标签升级更新。速度超快，1w个文件大概4,5秒，本想加个多线程显示进度，后来想想算了主要代码： reg.RegEx := ''; reg.Replacement := ''; reg.Subject := strList.Text; reg.ReplaceAll; reg.RegEx := ''; reg.Replacement := ''; reg.ReplaceAll; 阅读全文

摘要： 使用函数： System.IOUtils.TDirectory.GetCreationTime//获取创建时间 System.IOUtils.TDirectory.SetCreationTime//设置创建时间 注：UTC结尾的返回 。示例：代码unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls... 阅读全文

摘要： 使用函数： System.IOUtils.TDirectory.GetAttributes//获取属性 System.IOUtils.TDirectory.SetAttributes//设置属性注：次例未添加异常处理。补充一句代码：CheckListBox1.CheckAll(vcl.StdCtrls.TCheckBoxState(0), False, False);//ListCheckBox取消所有选中示例：代码：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Va... 阅读全文

摘要： 使用函数： 1.System.IOUtils.TDirectory.CreateDirectory//创建目录 2.System.IOUtils.TDirectory.Exists //目录是否存在 3.System.IOUtils.TDirectory.Delete //删除目录示例：代码：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Cont... 阅读全文

摘要： 描述：创建一个目录，不包含多级目录(多级目录使用System.SysUtils.ForceDirectories，Vcl.FileCtrl.ForceDirectories已过时)procedure CreateDirectory(Path: string);参数一：给定的路径如D:\aa，非完整路径如aa则在程序当前目录下创建完整代码unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, ... 阅读全文

摘要： 描述：复制文件夹以及文件夹下的内容procedure Copy(const SourceDirName, DestDirName: string) 参数一：源文件夹 参数二：目标文件夹所在单元：System.IOUtils代码部分procedure TForm1.Button_CopyClick(Sender: TObject);begin try TDirectory.Copy(Edit_Source.Text, Edit_Dest.Text); except MessageDlg('无效的源目录或目标目录', mtError, [mbok], 0)... 阅读全文