注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

gb.qin

A Man's心靈的港灣

 
 
 

日志

 
 

返回指定文件的文件名及扩展名  

2010-01-09 10:18:05|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

ExtractFileDrive、ExtractFilePath、ExtractFileDir、ExtractFileName、ExtractFileExt、ExtractRelativePath、ExtractShortPathName

//////////////////////////////////////////////////////////////////////

ExtractFileDrive :返回完整文件名中的驱动器,如"C:"

ExtractFilePath:返回完整文件名中的路径,最后带“/”,如"C:\test\"

ExtractFileDir:返回完整文件名中的路径,最后不带“/” ,如"C:\test"

ExtractFileName:返回完整文件名中的文件名称 (带扩展名),如"mytest.doc"

ExtractFileExt 返回完整文件名中的文件扩展名(带.),如".doc"

ExtractRelativePath : 返回相对路径,定义如下:

function ExtractRelativePath(const BaseName, DestName: string): string;

使用测试下如:

SysUtils.ExtractRelativePath('C:\test','C:\Test\TestRelativePath'):返回TestRelativePath

SysUtils.ExtractRelativePath('C:\Test\TestRelativePath','C:\test'):返回'..\TestRelativePath'

SysUtils.ExtractRelativePath('C:\Test\TestRelativePath\','C:\test'):返回'..\..\TestRelativePath'

ExtractShortPathName :返回短文件名,即8+3,文件名长八位,扩展名为3号,为保持DOS系统兼容而存在

 

ExtractFileName ExtractFilePath

返回指定文件的文件名及扩展名

var

s:string;

begin

s:=ExtractFileName('D:\Program Files\Borland\Delphi7\Projects\Unit1.dcu');

showmessage(s);\\显示:Unit1.dcu

end;

var

s:string;

begin

s:=ExtractFilepath('D:\Program Files\Borland\Delphi7\Projects\Unit1.dcu');

showmessage(s);\\显示:'D:\Program Files\Borland\Delphi7\Projects

end;

 

 

  评论这张
 
阅读(234)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017