一碗两块

摘要： 一。mouseDown事件下判断 if (ssDouble in Shift) and (ssLeft in Shift) then begin ShowMessage('aa'); end;二。启动窗口创建完毕Application.OnMessage := onAppM... 阅读全文

摘要： 1 package org.zhb.test; 2 /** 3 * author : zhb 4 * data : 2014-2-14 5 * use packages： 6 * xmlpull-1.1.3.1.jar 7 * xpp3_min-1.1.4c.jar 8 * xstream-1.4.7.jar 9 */ 10 import java.io.File; 11 import java.io.FileInputStream; 12 import java.io.FileOutputStream; 13 import java.... 阅读全文

摘要： 使用函数： 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... 阅读全文

摘要： 使用函数： 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 ... 阅读全文

摘要： 使用函数： 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 阅读全文

摘要： 使用函数： System.IOUtils.TDirectory.GetParentclass function GetParent(const Path: string): string; static;说明：返回给定目录的父目录，相对路径则为当前工作路径异常处理：指定目录不存在或无效代码：procedure TForm1.Button1Click(Sender: TObject);begin try //获取指定目录的父目录 //异常：指定目录不存在或无效 ShowMessage(Edit1.Text + '的父目录为：' + TDirect... 阅读全文

摘要： 使用函数： 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... 阅读全文

摘要： 使用函数： 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 ... 阅读全文

摘要： 使用函数： 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. 阅读全文

摘要： 使用函数： System.IOUtils.TDirectory.GetDirectoryRoot函数定义：　class function GetDirectoryRoot(const Path: string): string; static;说明： 传入一个指定目录，返回根目录，两者都是字符串类型异常处理：目录无效或目录不存在注：传入任意合法文件名，返回当前程序运行目录的根目录示例：begin // 取给定路径根目录.. try ShowMessage(TDirectory.GetDirectoryRoot(Edit1.Text)); except ... 阅读全文