随笔分类 -  System.IOUtils.TDirectory

TDirectory.Move移动或更名目录
摘要：使用函数： System.IOUtils.TDirectory.Move定义：class procedure Move(const SourceDirName, DestDirName: string); static;说明：移动或更名目录参数一：源目录。参数二：目标目录。异常处理：目录无效、不存在或无法访问。示例：var sDir, dDir: string;begin sDir := Edit_Source.Text; dDir := Edit_Dest.Text; try if TDirectory.GetParent(sDir) = TDirec... 阅读全文
posted @ 2014-01-03 10:57 oszhouzhb 阅读(329) 评论(0) 推荐(0)
TDirectory.IsRelativePath是否相对路径
摘要：使用函数： System.IOUtils.TDirectory.IsRelativePathclass function IsRelativePath(const Path: string): Boolean; inline; static;异常处理：无，纯粹判断路径，与目录是否存在无关代码：begin // 判断指定目录是否为相对路径 try if (TDirectory.IsRelativePath(Trim(Edit1.Text))) then ShowMessage(Edit1.Text + '是相对路径') else ... 阅读全文
posted @ 2014-01-02 14:53 oszhouzhb 阅读(223) 评论(0) 推荐(0)
TDirectory.IsEmpty判断指定目录是否为空
摘要：使用函数： System.IOUtils.TDirectory.IsEmptyclass function IsEmpty(const Path: string): Boolean; static;说明：参数为给定目录，返回布尔值异常处理：指定目录为空或无效代码：var sDir: string;procedure TForm1.Button1Click(Sender: TObject);begin if not SelectDirectory('', 'H:\', sDir) then Exit;end;procedure TForm1.Button_Chec 阅读全文
posted @ 2014-01-02 14:44 oszhouzhb 阅读(214) 评论(0) 推荐(0)
TDirectory.GetParent获取指定目录的父目录
摘要：使用函数： System.IOUtils.TDirectory.GetParentclass function GetParent(const Path: string): string; static;说明：返回给定目录的父目录，相对路径则为当前工作路径异常处理：指定目录不存在或无效代码：procedure TForm1.Button1Click(Sender: TObject);begin try //获取指定目录的父目录 //异常：指定目录不存在或无效 ShowMessage(Edit1.Text + '的父目录为：' + TDirect... 阅读全文
posted @ 2014-01-02 14:27 oszhouzhb 阅读(209) 评论(0) 推荐(0)
TDirectory.GetLogicalDrives获取本地逻辑驱动器
摘要：使用函数： System.IOUtils.TDirectory.GetLogicalDrivesclass function GetLogicalDrives: TStringDynArray; static;说明：返回一个动态数组驱动器列表如：C:\ D:\....代码：procedure TForm1.Button_GetDriClick(Sender: TObject);var dyArr: TStringDynArray; //System.Types.TStringDynArray sDri: string;begin dyArr := TDirectory.Ge... 阅读全文
posted @ 2014-01-02 14:18 oszhouzhb 阅读(273) 评论(0) 推荐(0)
获取设置目录创建、访问、修改时间
摘要：使用函数： System.IOUtils.TDirectory.GetCreationTime System.IOUtils.TDirectory.GetLastAccessTime System.IOUtils.TDirectory.GetLastWriteTime System.IOUtils.TDirectory.SetCreationTime System.IOUtils.TDirectory.SetLastAccessTime System.IOUtils.TDirectory.SetLastWriteTime代码: unit Unit1;interfaceuses ... 阅读全文
posted @ 2014-01-02 14:11 oszhouzhb 阅读(249) 评论(0) 推荐(0)
TDirectory.GetLastAccessTime获取指定目录最后访问时间
摘要：使用函数： System.IOUtils.TDirectory.GetLastAccessTime函数定义：class function GetLastAccessTime(const Path: string): TDateTime; static;说明： 参数为指定目录，返回最后一次访问时间(每次访问了某个目录如果下次不在访问，则都属于最后一次访问)异常处理：指定目录不存在或无效示例：var sDir: string;begin if not SelectDirectory('', 'H:\tmp', sDir) then Exit; try Edit_T. 阅读全文
posted @ 2013-12-31 22:53 oszhouzhb 阅读(247) 评论(0) 推荐(0)
TDirectory.GetDirectoryRoot获取指定目录的根目录
摘要：使用函数： System.IOUtils.TDirectory.GetDirectoryRoot函数定义：　class function GetDirectoryRoot(const Path: string): string; static;说明： 传入一个指定目录，返回根目录，两者都是字符串类型异常处理：目录无效或目录不存在注：传入任意合法文件名，返回当前程序运行目录的根目录示例：begin // 取给定路径根目录.. try ShowMessage(TDirectory.GetDirectoryRoot(Edit1.Text)); except ... 阅读全文
posted @ 2013-12-31 22:27 oszhouzhb 阅读(532) 评论(0) 推荐(0)
参数TFilterPredicate 类型说明
摘要：类型名称：TFilterPredicate类型定义：type TFilterPredicate = reference to function(const Path: string, const SearchRec: TSearchRec): Boolean;说明：由定义可以看出属于引用匿名函数类型(自己杜撰)，需重写，返回一个布尔值参数一：Path调用函数比如TDirectory.GetFileSystemEntries所传的Path，即初始的指定目录(不含目录下的子目录和文件)参数二：TSearchRec一个文件或文件夹结构(官方说明)，包含文件属性，比如SearchRec.Name，Pa 阅读全文
posted @ 2013-12-31 22:13 oszhouzhb 阅读(408) 评论(0) 推荐(0)
TDirectory.GetFileSystemEntries获取指定目录下的目录和文件
摘要：使用函数：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.. 阅读全文
posted @ 2013-12-31 21:52 oszhouzhb 阅读(726) 评论(0) 推荐(0)
TDirectory.GetFiles获取指定目录下的文件
摘要：使用函数：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. 阅读全文
posted @ 2013-12-31 21:28 oszhouzhb 阅读(813) 评论(0) 推荐(0)
TDirectory.GetDirectories 获取指定目录下的目录
摘要：使用函数： 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.. 阅读全文
posted @ 2013-12-30 17:18 oszhouzhb 阅读(1164) 评论(0) 推荐(0)
TDirectory.GetCreationTime、TDirectory.SetCreationTime获取和设置文件夹创建时间
摘要：使用函数： 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... 阅读全文
posted @ 2013-12-29 16:00 oszhouzhb 阅读(483) 评论(0) 推荐(0)
TDirectory.GetAttributes、TDirectory.SetAttributes获取和设置文件夹属性
摘要：使用函数： 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... 阅读全文
posted @ 2013-12-29 14:45 oszhouzhb 阅读(462) 评论(0) 推荐(0)
TDirectory.Delete 创建删除目录简单示例
摘要：使用函数： 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... 阅读全文
posted @ 2013-12-29 12:56 oszhouzhb 阅读(704) 评论(0) 推荐(0)
TDirectory.CreateDirectory 完整、严谨的创建一个目录
摘要：描述：创建一个目录，不包含多级目录(多级目录使用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, ... 阅读全文
posted @ 2013-12-28 00:47 oszhouzhb 阅读(1641) 评论(0) 推荐(0)
TDirectory.Copy复制文件
摘要：描述：复制文件夹以及文件夹下的内容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)... 阅读全文
posted @ 2013-12-27 19:40 oszhouzhb 阅读(398) 评论(0) 推荐(0)