procedure TForm1.Button1Click(Sender: TObject); var
Hour, Min, Sec, MSec: Word; begin
DecodeTime(Time, Hour, Min, Sec, MSec); SpinEdit1.Value := Hour; SpinEdit2.Value := Min; SpinEdit3.Value := Sec; SpinEdit4.Value := MSec; end;
///////End DecodeTime
━━━━━━━━━━━━━━━━━━━━━ 首
部 procedure DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils.pas
功能 返回日期时间类型转换成系统时间类型 说明
参考 function SysUtils.DecodeDateFully;function SysUtils.DecodeTime 例子
━━━━━━━━━━━━━━━━━━━━━ 首
部 function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; $[SysUtils.pas
功能 返回系统时间类型转换成日期时间类型 说明
参考 function SysUtils.EncodeDate;function SysUtils.EncodeTime 例子
━━━━━━━━━━━━━━━━━━━━━
首部 function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas 功能 返回日期时间DateTime所在的星期
说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六) 参考 function SysUtils.DateTimeToTimeStamp 例子
///////Begin DayOfWeek
procedure TForm1.Button1Click(Sender: TObject); const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六'); begin
Edit1.Text := cWeekCn[DayOfWeek(Now)]; end;
///////End DayOfWeek
━━━━━━━━━━━━━━━━━━━━━ 首部 function Date: TDateTime; $[SysUtils.pas
功能 返回当前日期
说明 Date - Int(Date)=0;
参考 function SysUtils.DateTimeToString 例子 Edit1.Text := DateToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
delphi函数大全之D-G篇-详解2 (2007-04-09 00:29:38)
标签：delphi 函数
━━━━━━━━━━━━━━━━━━━━━
首部 function FileExists(const FileName: string): Boolean; $[SysUtils.pas 功能 返回文件名FileName是否有实体存在 说明 包括隐藏文件
参考 function SysUtils.FileAge
例子 CheckBox1.Checked := FileExists(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━
首部 function DirectoryExists(const Directory: string): Boolean; $[SysUtils.pas 功能 返回目录名FileName是否有实体存在 说明 包括隐藏目录
参考 function Windows.GetFileAttributes
例子 CheckBox1.Checked := DirectoryExists(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━
首部 function ForceDirectories(Dir: string): Boolean; $[SysUtils.pas 功能 返回创建子目录是否成功 说明 直接创建多级目录
参考 function SysUtils.CreateDir
例子 CheckBox1.Checked := ForceDirectories(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首
部 function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; $[SysUtils.pas 功能 返回设置文件搜索 说明 搜索成功则返回0
参考 function Windows.FindFirstFile 例子
///////Begin FindFirst,FindNext,FindClose
procedure TForm1.Button1Click(Sender: TObject); var
vSearchRec: TSearchRec; I: Integer; begin
Memo1.Clear;
I := FindFirst(Edit1.Text, faAnyFile, vSearchRec); while I = 0 do begin
Memo1.Lines.Add(vSearchRec.Name); I := FindNext(vSearchRec);
end;
FindClose(vSearchRec); end;
///////End FindFirst,FindNext,FindClose ━━━━━━━━━━━━━━━━━━━━━
首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas 功能 返回继续文件搜索 说明 搜索成功则返回0
参考 function Windows.FindNextFile 例子 <参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure FindClose(var F: TSearchRec); $[SysUtils.pas 功能 结束当前文件搜索
说明 不关闭查询会占用系统资源 参考 function Windows.FindClose 例子 <参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部 function FileGetDate(Handle: Integer): Integer; $[SysUtils.pas 功能 返回文件的修改时间 说明 读取失败则返回-1
参考 function Windows.GetFileTime 例子
///////Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject); var
I: Integer; begin
I := FileOpen(Edit1.Text, fmOpenRead); if I < 0 then Exit;
SpinEdit1.Value := FileGetDate(I);
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value)); FileClose(I); end;
///////End FileGetDate
━━━━━━━━━━━━━━━━━━━━━ 首
部 function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas 首
部 function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas
功能 返回设置文件的修改时间 说明 修改成功则返回0
参考 function Windows.SetFileTime
例
子 SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));
━━━━━━━━━━━━━━━━━━━━━ 首
部 function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas
功能 返回文件的属性
说明 读取失败则返回$FFFFFFFF
参考 function Windows.GetFileAttributes
例子 SpinEdit1.Value := FileGetAttr(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首
部 function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas
功能 返回设置文件的属性 说明 设置成功则返回0
参考 function Windows.SetFileAttributes
例子 SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━
首部 function FileIsReadOnly(const FileName: string): Boolean; $[SysUtils.pas 功能 返回文件是否只读 说明 文件不存在看作只读
参考 function Windows.GetFileAttributes
例子 CheckBox1.Checked := FileIsReadOnly(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首
部 function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean; $[SysUtils.pas
功能 返回设置文件是否只读是否成功 说明 文件不存在则返回False
参考 function Windows.GetFileAttributes;function Windows.SetFileAttributes 例子 CheckBox1.Checked := FileSetReadOnly(Edit1.Text, CheckBox2.Checked); ━━━━━━━━━━━━━━━━━━━━━
首部 function DeleteFile(const FileName: string): Boolean; $[SysUtils.pas 功能 返回删除文件是否成功 说明 文件不存在则返回False
参考 function Windows.DeleteFile
例子 CheckBox1.Checked := DeleteFile(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━
首部 function ExtractFilePath(const FileName: string): string; $[SysUtils.pas 功能 返回文件名所在的路径 说
明 ExtractFilePath('C:\\')='C:\\';ExtractFilePath('\\\\Server\\Tool\\Calc.exe')='\\\\Se
rver\\Tool\\'
参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ExtractFilePath(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━
首部 function ExtractFileDir(const FileName: string): string; $[SysUtils.pas 功能 返回文件名所在的目录 说
明 ExtractFileDir('C:\\')='C:\\';ExtractFileDir('\\\\Server\\Tool\\Calc.exe')='\\\\Server\\Tool'
参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ExtractFileDir(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━
首部 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);