在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中進行文件和目錄操作的基本功能。您可以根據實際需求選擇合適的函數來使用。