delphi有像文件浏览的控件吗？
就好像上面的图 有么

[解决办法]
OpenDialog
[解决办法]
OpenDialog的FileName
[解决办法]
选择文件来打开读或写？
opendialog
[解决办法]

uses
 ShellCtrls,FileCtrl,shellapi;
procedure TForm1.Button1Click(Sender: TObject);
const 
      SELDIRHELP   =   1000; 
var 
  dir:   String;
begin 
  dir   :=   'D: ';
  if   SelectDirectory(dir,   [sdAllowCreate,   sdPerformCreate,   sdPrompt],SELDIRHELP)   then
      Edit1.Text   :=   dir;

end;