edit中输出opendialog的文件名

aaron52088 发布于 2008-04-01 23:20， 4340 次点击

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

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

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

3 回复

provoke2008-04-01 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意为提取

aaron520882008-04-03 00:07

谢谢哦，顺便问一下，有没有关于这些函数用法的书推荐一下哦

sky_yang_sky2008-04-03 08:43

网上查下，很多的