如何取到opendialog1.FileName不包括路径的文件名？（急）

blueflame 2001-12-05 11:23:31

如题

...全文

264 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

Bellamy 2001-12-05

打赏
举报

我也来晚了!taxi(游少爷)说的是对的!　

songlichao 2001-12-05

打赏
举报

ExtractFileName!!!!
看来我是来晚了。

leeky 2001-12-05

打赏
举报

自己写程序就如此：
var i,loc:integer;
resultStr:string;

loc:=0;

resultStr:=OpenDialog1.FileName;
for i:=1 to StrLen(PChar(resultStr)) do
if (resultStr[i]='\') then loc :=i;

if loc>0 then delete(resultStr,1,loc);

yiyilc 2001-12-05

打赏
举报

ok！

taxi 2001-12-05

打赏
举报

ExtractFileName(OpenDialog1.FileName);

taxi 2001-12-05

打赏
举报

抱朴守拙 2001-12-05

打赏
举报

ExtractFileName(OpenDialog1.FileName);
唉,来晚了........................

kevin_gao 2001-12-05

打赏
举报

ExtractFileName(OpenDialog1.FileName);
来晚了........................

用OpenDialog.FileName做参数 ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名 ExtractFileName() 从文件名中抽取不含路径的文件名 ExtractFilePath() 从文件名中抽取路径名 ExtractFileDir() 从文件名中抽取目录名 ExtractFileDr...

System.IO.Path.GetFullPath(openFileDialog1.FileName); //绝对路径 System.IO.Path.GetExtension(openFileDialog1.FileName); //文件扩展名 System.IO

1）指定显示指定扩展名如ACCESS的MDB利用控件的FILTER属性:在FILTER NAME：*.mdb(ACCESS 文件) FILTER:*.mdb程序中利用代码：opendialog1.filter:=所有文件(*.*)|*.*;opendialog1.filter:=文本文件(*.txt)|*.txt;opendialog1.filter:=文本文件(*.txt)

if(OpenDialog->Execute() == false) return; String strFile = OpenDialog->FileName; String strFilePath = ExtractFilePath(strFile); String strFileName = ExtractFileName(strFile); String strFileExt = ExtractFileExt(strFile); 比如：...

Delphi

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章