Delphi中截取文件名

Delphi中截取文件名不含后缀部分 收藏
当文件名含有中文时,不能直接用LeftStr(FileName, Length(FileName - 4))或者用Pos来定位"."的位置来获取。因为中文一个字符相当与两个英文字符。这样截取往往还是把整个FileName都截下来了。

应当使用Copy函数,如下:

TmpFileLength := Pos(extFile, FileName); TmpFileName := Copy(FileName, 1, TmpFileLength-1);

FileName为AA.txt之类,如果是包含path,可以先用ExtractFileName截取包含后缀的文件名。

发表于 @ 2008年06月23日 16:54:00 | 评论( 2 ) | 编辑| 举报| 收藏

旧一篇:Delphi中类似Map的HashTable | 新一篇:国务院参事:房产商操控舆论逼宫政府
相关文章 SmallHand 发表于2008年12月12日 10:10:24  IP:举报删除
试试这个
procedure TForm1.Button9Click(Sender: TObject);
begin
button9.Caption := ChangeFileExt('我的a文件.txt','');
end;SmallHand 发表于2008年12月12日 10:11:15  IP:举报删除
试试这个
procedure TForm1.Button9Click(Sender: TObject);
begin
button9.Caption := ChangeFileExt('我的a文件.txt','');
end;

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/newweapon/archive/2008/06/23/2579352.aspx

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

inforum

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值