----------------------------------- ForceDirectories 目录 --------------------------------------------------------- Unit FileCtrl 函数原型 function ForceDirectories(Dir: string): Boolean;
procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := ''''C:\APPS\SALES\LOCAL''''; if DirectoryExists(Dir) then Label1.Caption := Dir + '''' was created'''' end; -------------------------------------------------------- ExpandUNCFileName 同上(只是得到网路上的路径) -------------------------------------------------------- Unit SysUtils 函数原型 function ExpandUNCFileName(const FileName: string):string; ExtractFileDir 分析字串中的路径 Unit SysUtils 函数原型 function ExtractFileDir(const FileName: string): string; 说明 设S字串为 c:\windows\abc.txt 则结果为 c:\windows **** 功能在於由任何部份传来的叁数,加以分析它的路径 范例 procedure TForm1.Button1Click(Sender: TObject); var S: String; P1:String; begin P1:=''''c:\windows\abc.txt''''; S:=ExtractFileDir(P1); Label1.Caption:=S; end;
S==''''c:\windows''''
P1:=''''abc.txt'''' S==''''
P1:=''''c:abc.txt'''' S==''''c:''''
P1:=''''c:\abc.txt'''' S==''''c:\'''' -------------------------------------------------------- ExtractFileDrive 分析字串中的磁碟机名称 -------------------------------------------------------- Unit SysUtils 函数原型 function ExtractFileDrive(const FileName: string): string; **** 功能同上,只是传回磁碟机名称. 范例 procedure TForm1.Button1Click(Sender: TObject); var S: String; P1:String; begin P1:=''''c:\windows\abc.txt''''; S:=ExtractFileDrive(P1); Label1.Caption:=S; end;
S:=''''c:''''
P1:=''''abc.txt'''' S=='''' -------------------------------------------------------- ExtractFileExt 分析字串中的档案名称的副档名 -------------------------------------------------------- Unit SysUtils 函数原型 function ExtractFileExt(const FileName: string): string; 范例 procedure TForm1.Button1Click(Sender: TObject); var S: String; P1:String; begin P1:=''''c:\windows\abc.txt''''; S:=ExtractFileExt(P1); Label1.Caption:=S; end;
S==''''.txt''''
P1:=''''c:\windows\abc'''' S=='''' 范例 MyFilesExtension := ExtractFileExt(MyFileName); -------------------------------------------------------- ExtractFileName 分析字串中的档案名称(只传回档案名称) -------------------------------------------------------- Unit SysUtils 函数原型 function ExtractFileName(const FileName: string): string; 范例 procedure TForm1.Button1Click(Sender: TObject); var S: String; P1:String; begin P1:=''''c:\windows\abc.txt''''; S:=ExtractFileName(P1); Label1.Caption:=S; end;
S==''''abc.txt'''' 范例 procedure TForm1.Button1Click(Sender: TObject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName := ExtractFileName(SaveDialog1.FileName); BackupName := ChangeFileExt(BackupName, ''''.BAK''''); if not RenameFile(SaveDialog1.FileName, BackupName) then raise Exception.Create(''''Unable to create backup file.''''); end; FileHandle := FileCreate(SaveDialog1.FileName); { Write out the number of rows and columns in the grid. } FileWrite(FileHandle, StringGrid1.ColCount, SizeOf(StringGrid1.ColCount)); FileWrite(FileHandle, StringGrid1.RowCount, SizeOf(StringGrid1.RowCount)); for X := 0 to StringGrid1.ColCount ? 1 do begin for Y := 0 to StringGrid1.RowCount ? 1 do begin { Write out the length of each string, followed by the string itself. } StringLen := Length(StringGrid1.Cells[X,Y]); FileWrite(FileHandle, StringLen, SizeOf(StringLen)); FileWrite(FileHandle, StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]); end; end; FileClose(FileHandle); end; end; ##FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example -------------------------------------------------------- ExtractFilePath 分析字串中的路径 -------------------------------------------------------- Unit SysUtils 函数原型 function ExtractFilePath(const FileName: string): string; 说明 设S字串为 c:\windows\abc.txt 则结果为 c:\windows范例 procedure TForm1.Button1Click(Sender: TObject); var S: String; P1:String; begin P1:=''''c:\windows\abc.txt''''; S:=ExtractFilePath(P1); Label1.Caption:=S; end; 范例 begin with Session do begin ConfigMode := cmSession; try AddStandardAlias(''''TEMPDB'''', ExtractFilePath(ParamStr(0)), ''''PARADOX''''); finally ConfigMode := cmAll; end; end; ##ConfigMode, AddStandardAlias, ExtractFilePath example -------------------------------------------------------- FileSearch 寻找档案在磁碟机中的正确路径 -------------------------------------------------------- Unit SysUtils 函数原型 function FileSearch(const Name, DirList: string): string; 范例 var s:string; begin s:= FileSearch(''''abc.txt'''', ''''c:\window\''''); Label1.Caption:=s; end; 说明 找到传回c:\window\abc.txt 找不到传回空字串. 范例 procedure TForm1.Button1Click(Sender: TObject); var buffer: array [0..255] of char; FileToFind: string; begin GetWindowsDirectory(buffer, SizeOf(buffer)); FileToFind := FileSearch(Edit1.Text, GetCurrentDir + '''';'''' + buffer); if FileToFind = '''' then ShowMessage(''''Couldn''''t find '''' + Edit1.Text + ''''.'''') else ShowMessage(''''Found '''' + FileToFind + ''''.''''); end; ##FileSearch, ShowMessage Example -------------------------------------------------------- FileAge 传回档案的日期及时间(DOS型态). -------------------------------------------------------- Unit SysUtils 函数原型 function FileAge(const FileName: string): Integer; 说明 就是档案总管中档案内容裹面的修改日期. 范例 procedure TForm1
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
