OpenDialog获取文件名

//OpenDialog获取文件

procedure TForm2.Button1Click(Sender: TObject);

begin

  File_Path:='';

  if OpenDialog1.Execute then File_Path:=OpenDialog1.FileName;

  if Length(File_Path)>0 then

     Edit1.Text:=OpenDiaLog1.FileName;

end;