本文整理自网络，侵删。
//delphi文件路径相关的字符串操作
uses
HTTPApp, Masks;
procedure TForm1.Button1Click(Sender: TObject);
var
ss,s: string;
begin
//先提取一个文件名的字符串
ss := Application.ExeName;
ShowMessage(ss); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects\Project1.exe
//路径
s := ExtractFilePath(ss);
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects\
//所在文件夹
s := ExtractFileDir(ss);
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects
//所在逻辑盘
s := ExtractFileDrive(ss);
ShowMessage(s); //C:
//文件名
s := ExtractFileName(ss);
ShowMessage(s); //Project1.exe
//文件扩展名
s := ExtractFileExt(ss);
ShowMessage(s); //.exe
//相对路径
s := ExtractRelativePath('C:\Documents and Settings\wy\My Documents\',ss);
ShowMessage(s); //RAD Studio\Projects\Project1.exe
//dos下的短文件名
s := ExtractShortPathName(ss);
ShowMessage(s); //C:\DOCUME~1\wy\MYDOCU~1\RADSTU~1\Projects\Project1.exe
//转换到Unix路径格式, 需要 uses HTTPApp
s := DosPathToUnixPath(ss);
ShowMessage(s); //C:/Documents and Settings/wy/My Documents/RAD Studio/Projects/Project1.exe
//转Unix路径格式为Window格式, 是 DosPathToUnixPath 的逆操作
s := ExpandUNCFileName(DosPathToUnixPath(ss));
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects\Project1.exe
//去掉结尾的路径分隔符
s := ExcludeTrailingPathDelimiter(ExtractFilePath(ss));
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects
//去掉结尾的路径分隔符, 只是调用:ExcludeTrailingPathDelimiter
s := ExcludeTrailingBackslash(ExtractFilePath(ss));
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects
//更换扩展名, 并不修改文件, 只是替换字符串:
s := ChangeFileExt(ss,'.bak');
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects\Project1.bak
//更换文件路径:
s := ChangeFilePath(ss,'c:\temp');
ShowMessage(s); //c:\temp\Project1.exe
//判断第几个字符是否是路径分隔符:
IsPathDelimiter(ss,3); //返回 True
//判断后缀名是不是 exe; 需要 uses Masks
MatchesMask(ss,'*.exe'); //返回 True
end;
--------------------------------------------------------------------------------
//分解 ProcessPath (需要 uses FileCtrl)
var
s,p,f: string;
d: Char;
begin
s := ParamStr(0);
ShowMessage(s); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projects\Project1.exe
ProcessPath(s,d,p,f);
ShowMessage(d); //C
ShowMessage(p); //\Documents and Settings\wy\My Documents\RAD Studio\Projects
ShowMessage(f); //Project1.exe
end;
--------------------------------------------------------------------------------
//压缩显示 MinimizeName (需要 uses FileCtrl)
var
s: string;
begin
s := ParamStr(0);
s := MinimizeName(s,Self.Canvas,100);
ShowMessage(s); //C:\...\Project1.exe
end;
相关阅读 >>
Delphi xe5也可以开发 google glass应用
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
更多相关阅读请进入《Delphi》频道 >>
