十万火急!!!!!!!!!!!!!!!!!

Question

如何出现一个寻找文件路径的对话框,并将其路径存放在edit中

Answer 1

放一个OpenDialog1在窗体上,然后写如下程序procedure TForm1.Button1Click(Sender: TObject);
begin
    IF OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
end;

Answer 2

如果仅仅是要路径，则:
procedure TForm1.Button1Click(Sender: TObject);
begin
    IF OpenDialog1.Execute then
    Edit1.Text:=ExtractFileDir(OpenDialog1.FileName);
End;

Answer 3

补充一下.多个文件的文件名:
  form1.ListBox1.Items:=form1.OpenDialog1.Files;希望有些帮助.

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
    o1:topendialog;
begin
    o1:=topendialog.create(self);
    IF OpenDialog1.Execute then
    Edit1.Text:=ExtractFileDir(OpenDialog1.FileName);
end;end.