edit中输出opendialog的文件名

aaron52088

注册会员

Rank: 2

帖子: 130
精华: 0
性别: 男
注册时间: 2007-1-24

1^# 大中小发表于 2008-4-1 23:20 只看该作者

edit中输出opendialog的文件名

想在edit中输出opendialog所打开的那个文件的文件名，怎么做啊？
麻烦大家看看的。谢谢先

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName;
end;

这样写完会把整个路径都显示出来，如何只显示文件名啊

搜索更多相关主题的帖子: edit opendialog 文件名输出

TOP

provoke

注册会员

Rank: 2

帖子: 111
精华: 0
性别: 男
注册时间: 2007-6-14

2^# 大中小发表于 2008-4-1 23:34 只看该作者

F:\新建文件夹\abc.txt

文件名，如abc.txt
Edit1.Text:=ExtractFileName(Opendialog1.FileName);

路径名，如F:\新建文件夹\,以“\”结尾
Edit2.Text:=ExtractFilePath(Opendialog1.FileName);

ExtractFilePath(Opendialog1.FileName)+ExtractFileName(Opendialog1.FileName)=Opendialog1.FileName

Extract意为提取

爱我至爱，至死不渝！