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;