Delphi学习笔记六——文件路径相关的字符串操作

转载 2012年12月18日 09:40:33
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学习笔记六——文件路径相关的字符串操作

[delphi] view plaincopy uses     HTTPApp, Masks;      procedure TForm1.Button1...
  • my98800
  • my98800
  • 2016年05月24日 08:43
  • 193

Delphi学习笔记——文件路径相关的字符串操作(综合)

uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string...
  • SauceJ
  • SauceJ
  • 2014年05月19日 15:20
  • 345

Delphi 7文件路径相关的字符串操作

Delphi 7文件路径相关的字符串操作
  • hellsb
  • hellsb
  • 2010年09月26日 19:32
  • 1765

深度学习笔记(六) cnn 卷积神经网络

1)卷积神经网络是一种前馈神经网络,前面讲的网络包括full NN,感知器都是前馈网络,BP是一种前馈网络的训练方法。 2)卷积神经网络主要是降维,有点类似PBA CNN的基本结构包括两层,...
  • chenfenggang
  • chenfenggang
  • 2017年09月03日 22:01
  • 378

文件路径相关的字符串操作

uses HTTPApp, Masks;procedure TForm1.Button1Click(Sender: TObject);var ss,s: string;begin //先提取一个...
  • fcrane
  • fcrane
  • 2009年08月13日 22:01
  • 471

DELPHI字符串处理函数大全(收藏在此方便以后查找使用)

uses StrUtils;【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; ...
  • bjtbjt
  • bjtbjt
  • 2013年08月05日 21:51
  • 3600

C语言字符串操作相关函数

函数名: stpcpy  功  能: 拷贝一个字符串到另一个  用  法: char *stpcpy(char *destin, char *source);  程序例: #include  ...
  • Helloo_jerry
  • Helloo_jerry
  • 2017年08月15日 10:24
  • 669

DELPHI得到文件路径的方法

DELPHI得到文件路径的方法 方法一:只能到文件夹uses FileCtrl;{记得要先引用这个}var  Dir: string;begin  SelectDirectory('选择你要 XXOO...
  • sumstars
  • sumstars
  • 2011年05月02日 14:47
  • 1017

delphi中的字符串操作函数的使用(上)

1.       提取字符串中指定子字符串前的字符串   Function Before( Src:string ; S:string ): string ;   Var     F: Word...
  • suinichengfeng
  • suinichengfeng
  • 2013年04月26日 16:14
  • 647

《六顶思考帽》读书笔记

《六顶思考帽》读书笔记读 大学的时候,就曾一口气读完了《六顶思考帽》,当时的想法只是说尽可能地多读点书,增长见识,没有什么读书技巧和章法可言。出来工作了时间紧张没有那么多时间,才开始探究如何高效地读...
  • u011570492
  • u011570492
  • 2016年11月12日 10:55
  • 1146
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi学习笔记六——文件路径相关的字符串操作
举报原因:
原因补充:

(最多只允许输入30个字)