delphi 文件操作函数

2016-08-22 10:17:38来源:http://zsqztg.blog.51cto.com/601880/191042作者:zhangshengqi人点击


首部 function ExtractFileDrive(const FileName: string): string; $[SysUtils.pas功能 返回文件名所在驱动器说明 ExtractFileDrive('C:/')='C:';ExtractFileDrive('//Server/Tool/Calc.exe')='//Server/Tool'
参考 function System.Copy例子 Edit1.Text := ExtractFileDrive(Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function ExtractFileName(const FileName: string): string; $[SysUtils.pas功能 返回绝对文件名说明 ExtractFileName('C:/')='';ExtractFileName('//Server/Tool/Calc.exe')='Calc.exe'参考 function SysUtils.LastDelimiter;function System.Copy例子 Edit1.Text := ExtractFileName(Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function ExtractFileExt(const FileName: string): string; $[SysUtils.pas功能 返回文件名的扩展名说明 ExtractFileExt('C:/')='';ExtractFileExt('//Server/Tool/Calc.exe')='.exe'参考 function SysUtils.LastDelimiter;function System.Copy例子 Edit1.Text := ExtractFileExt(Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function ExpandFileName(const FileName: string): string; $[SysUtils.pas功能 返回文件名的完整表示说明 ExpandFileName('hello.pas')='C:/Program Files/Borland/Delphi6/Projects/hello.pas'参考 function Windows.GetFullPathName例子 Edit1.Text := ExpandFileName(Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[SysUtils.pas功能 分情况返回文件名的完整表示说明 type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous);参考 function Windows.GetFullPathName;function SysUtils.SameFileName;function SysUtils.FindFirst例子///////Begin ExpandFileNameCaseprocedure TForm1.Button1Click(Sender: TObject);varvFilenameCaseMatch: TFilenameCaseMatch;beginEdit1.Text := ExpandFileNameCase(Edit2.Text, vFilenameCaseMatch);SpinEdit1.Value := Ord(vFilenameCaseMatch);end;///////End ExpandFileNameCase━━━━━━━━━━━━━━━━━━━━━首部 function ExpandUNCFileName(const FileName: string): string; $[SysUtils.pas功能 返回LINUX文件名的完整表示说明 ExpandUNCFileName('C:/')='C:/'参考 function SysUtils.ExpandFileName例子 Edit1.Text := ExpandUNCFileName(Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function ExtractRelativePath(const BaseName, DestName: string): string; $[SysUtils.pas功能 返回参数的相对路径说明 ExtractRelativePath('C:/Windows/', 'C:/Windows/System')='System'参考 function SysUtils.SameFilename;function SysUtils.ExtractFileDrive例子 Edit1.Text := ExtractRelativePath(Edit2.Text, Edit3.Text);━━━━━━━━━━━━━━━━━━━━━首部 function ExtractShortPathName(const FileName: string): string; $[SysUtils.pas功能 返回参数的DOS路径说明 ExtractShortPathName('C:/Program Files/Borland')='C:/PROGRA~1/BORLAND'参考 function Windows.GetShortPathName例子 Edit1.Text := ExtractShortPathName(Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部 function FileSearch(const Name, DirList: string): string; $[SysUtils.pas功能 返回目录列表中DirList搜索的第一个结果说明 FileSearch('Calc.exe', 'd:/winxp/system32;c:/windows')='d:/winxp/system32/calc.exe'参考 function SysUtils.FileExists;function SysUtils.AnsiLastChar例子 Edit1.Text := FileSearch(Edit2.Text, Edit3.Text);━━━━━━━━━━━━━━━━━━━━━首部 function DiskFree(Drive: Byte): Int64; $[SysUtils.pas功能 返回驱动器可用空间说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1参考 function Windows.GetDiskFreeSpaceExA例子 SpinEdit1.Value := DiskFree(SpinEdit2.Value);━━━━━━━━━━━━━━━━━━━━━首部 function DiskSize(Drive: Byte): Int64; $[SysUtils.pas功能 返回驱动器全部空间说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1参考 function Windows.GetDiskFreeSpaceExA例子 SpinEdit1.Value := DiskSize(SpinEdit2.Value);━━━━━━━━━━━━━━━━━━━━━首部 function FileDateToDateTime(FileDate: Integer): TDateTime; $[SysUtils.pas功能 返回将文件日期时间类型转换日期时间类型说明 FileDate非法是将触发异常参考 function SysUtils.EncodeDate;function SysUtils.EncodeTime例子 <参见FileAge>━━━━━━━━━━━━━━━━━━━━━首部 function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas功能 返回将日期时间类型转换文件日期时间类型说明 年份在1980到2107之外则返回0参考 function SysUtils.DecodeDate;function SysUtils.DecodeTime例子 <参见FileSetDate>━━━━━━━━━━━━━━━━━━━━━ 首部 function GetCurrentDir: string; $[SysUtils.pas功能 返回当前操作目录说明 [注意]调用文件对话框会改变当前操作目录参考 function System.GetDir例子 Edit1.Text := GetCurrentDir;━━━━━━━━━━━━━━━━━━━━━ 首部 function SetCurrentDir(const Dir: string): Boolean; $[SysUtils.pas功能 返回设置当前操作目录是否成功说明 [注意]调用文件对话框会改变当前操作目录参考 function Windows.SetCurrentDirectory例子 CheckBox1.Checked := SetCurrentDir(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━首部 function CreateDir(const Dir: string): Boolean; $[SysUtils.pas功能 返回创建目录是否成功说明 不支持多级目录;已经存在则返回False参考 function Windows.CreateDirectory例子 CheckBox1.Checked := CreateDir(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━首部 function RemoveDir(const Dir: string): Boolean; $[SysUtils.pas功能 返回删除目录是否成功说明 必须是空目录参考 function Windows.RemoveDirectory例子 CheckBox1.Checked := RemoveDir(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas功能 返回指针字符串的长度说明 当指针字符串Str为nil时将触发异常参考 <NULL>例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
本文来自: 乘风原创程序(http://www.qqcf.com) 详细出处参考:file:///C:/Documents%20and%20Settings/Administrator/桌面/Delphi6函数大全(8).htm

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台