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
相关文档：
显示一个GIF动画
procedure ShowGIF( GIFFileName : String );
var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件} PostData := false;{不发送数据} Heads := '';{Header信息为空} Flags := 0;{Flags设为0} ......
在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。
一、三种方法的简单介绍
1）TTtimer控件
TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事
件和Inte ......
一．建立工程目录
首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录中创建以下各个目录：
<Doc>：用来存放该项目相关的开发文档（需求说明，概要设计，详细设计等等等等）；
< ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
Delphi第三方控件安装卸载指南
基本安装
1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；
3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；
4、如� ......
