edit中输出opendialog的文件名
想在edit中输出opendialog所打开的那个文件的文件名，怎么做啊？麻烦大家看看的。谢谢先
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName;
end;
这样写完会把整个路径都显示出来，如何只显示文件名啊
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意为提取
