文件名(50分)

Y

YuanGuo2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-02

• #1

急！小问题！！
怎样获取文件名（不包括扩展名）？

 

Z

zrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-02

• #2

var name;
name:=extractfilename(opendialog1.filename);
name:=copy(name,0,length(name)-4);

 

小

小淘

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-02

• #3

此法最简单

 

M

mikedeakins

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-03

• #4

TFileName name;
name:=extractfilename(opendialog1.filename);
name:=copy(name,0,length(extractfileext(name)));
// 你怎么知道文件的扩展名是三个字符？ abc.1234567857892075 怎么办？

 

Z

zrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-03

• #5

哈哈 ,不好意思阿,我是按常规帮法来的哦,
那就想上面这位兄弟的吧
不过name:=copy(name,0,length(name)-length(extractfilext(name)));

 

M

microwave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-03

• #6

小CASE:
教你几个文件信息处理的函数：
函数 传递 C:/Delphi/bin/Project.exe 后的结果
ExtractFileDir() C:/Delphi/bin
ExtractFileDrive() C;
ExtractFileExt() .exe
ExtractFileName() Project.exe
ExtractFilePath() C:/Delphi/bin/
怎么样够用了吧？

 

T

Topside

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-03

• #7

同意microwave。简单。

 

Y

YuanGuo2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-03

• #8

我以为有函数直接获取主文件名。
不过，还是很感谢两位朋友zrj和 miledeakins，分数不多，不好分配，还望笑纳,^-^ 。
至于microwave说的函数，我是知道的。