从文件路径中分解出文件的名称(不考虑后缀)
function Getname(filename:string):string
谢谢!!
function Getname(filename:string):string
谢谢!!
解决方案 »
- 快帮忙解决 ado 传参数右截断
- 如何调试DLL文件,调试高手请进!!!谢谢啦!
- How to be a programer?大家请进
- 如何在程序中注册多个热键
- 关于流文件的操作问题!急急急啊!!!
- ??????-[Error] TEditEx.PAS(16): Identifier redeclared: 'TEditEx'????????
- mdi应有程序,父窗体上有上panel控件(很大)当调用子窗体时,被panel挡住了,怎么才能让它显现在最前面.在线等待!!!!!!!
- 字符串压缩算法?
- 如何得到WORD里插入符的位置?
- 请问怎样得到一个提取出月份的数据集的问题。
- 一个dbgrid的问题,急用
- 怎樣從dll文件中傳遞圖標給主程序,在線等待
ExtractFileName(FileName: string): string;
ExtractFileDir(FileName: string): string;
ExtractFilePath(FileName: string): string;
var
i : Integer;
begin
i:= 1;
while i <> 0 do
begin
i := pos('\',filename);
filename := copy(filename,i+1,length(filename)-i);
end;
result := filename;
end;
ExtractFileDir(FileName: string): string;//分离跟目录
ExtractFileExt
ExtractFileName//这一个应该是你要的吧!
ExtractFilePath