-----------------------------------
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上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
