“浏览”键怎么做？

Question

就是很多软件中常见的“浏览”键，来打开一个文件
目的是把打开的文件路径输到edit1里

Answer 1

if opendialog1.execute then 
  edit1.text := extractfilepath(opendialog1.filename);

Answer 2

uses FileCtrl;procedure TForm1.Button1Click(Sender: TObject);
 var
    t_dir :String ;
  begin
    if selectDirectory('请选择操作目录' ,'c:\' ,t_dir) then
       //t_Dir你所选择的目录
    edit1.text := t_dir;end;