阅读量:3
在Delphi中,我们可以使用ExtractFilePath函数来提取文件的路径信息,使用ParamStr函数来获取命令行参数。除此之外,Delphi还提供了其他一些文件和目录操作的函数和过程,如下所示:
ExtractFileName:提取文件的名称(包含扩展名)。
FileName := ExtractFileName('C:\MyFiles\myfile.txt'); // 输出:myfile.txt
ExtractFileExt:提取文件的扩展名。
FileExt := ExtractFileExt('C:\MyFiles\myfile.txt'); // 输出:.txt
ExtractFileDir:提取文件的父目录。
FileDir := ExtractFileDir('C:\MyFiles\myfile.txt'); // 输出:C:\MyFiles
FileExists:检查文件是否存在。
if FileExists('C:\MyFiles\myfile.txt') then ShowMessage('文件存在') else ShowMessage('文件不存在');
DirectoryExists:检查目录是否存在。
if DirectoryExists('C:\MyFiles') then ShowMessage('目录存在') else ShowMessage('目录不存在');
CreateDir:创建目录。
if not DirectoryExists('C:\MyFiles') then CreateDir('C:\MyFiles');
DeleteFile:删除文件。
DeleteFile('C:\MyFiles\myfile.txt');
RemoveDir:删除目录。
RemoveDir('C:\MyFiles');
RenameFile:重命名文件。
RenameFile('C:\MyFiles\oldfile.txt', 'C:\MyFiles\newfile.txt');
FindFirst / FindNext:查找目录中的文件。可以使用通配符进行模式匹配。
var SearchRec: TSearchRec; begin if FindFirst('C:\MyFiles\*.txt', faAnyFile, SearchRec) = 0 then begin repeat // 处理文件 ShowMessage(SearchRec.Name); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end;
这些函数和过程提供了在Delphi中进行文件和目录操作的基本功能。您可以根据实际需求选择合适的函数来使用。