RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件 > 正文

delphi opendialog设置默认打开路径

作者:admin 来源: 日期:2018/1/12 13:06:52 人气: 标签:opendialog

错误的:
path1 := ExtractFilePath(application.ExeName)+'\databack';
      if DirectoryExists(path1) then
      begin
         OpenDialog1.InitialDir:=path1;
      end;
      OpenDialog1.Execute;
正确的:

path1 := ExtractFilePath(application.ExeName)+'databack';
      if DirectoryExists(path1) then
      begin
         OpenDialog1.InitialDir:=path1;
      end;
      OpenDialog1.Execute;//设置属性之后弹出选择文件框
判断路径是否存在都正确,问题就出在ExtractFilePath 本身就带路径后的斜杠,如:c:\nihao\,加上"\databack",就是c:\nihao\\databack这个时候设置就没有作用了,去掉那个斜杠就正确了,还是得按规范来。。。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料