摘要: 使用函数: 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 阅读(227) 评论(0) 推荐(0) 编辑
摘要: 使用函数: 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 阅读(502) 评论(0) 推荐(0) 编辑
摘要: 类型名称: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 阅读(393) 评论(0) 推荐(0) 编辑
摘要: 使用函数: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 阅读(662) 评论(0) 推荐(0) 编辑
摘要: 使用函数: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 阅读(712) 评论(0) 推荐(0) 编辑