• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

在Delphi中定位文件位置_Delphi

delphi 搞代码 7年前 (2018-08-09) 204次浏览 已收录 0个评论

Delphi中,定位文件的操作主要有两种方法。一种是直接定位文件,即通过“打开”对话框(OpenDialog)控件来实现。另一种是只定位到文件夹,然后再在此文件夹内寻找文件,这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的,因此在使用时不要忘记在Uses中加入单元名。

  下面就以一个例子来说明这两种方法在Delphi中的具体实现:

  首先建立一个新的工程,然后在窗体上加入两个按钮控件、一个“打开”对话框,再加入两个标签控件作为两种实现结果的存储控件。

  各个控件的主要属性设置如下:

  Button1中:

http://www.gaodaima.com/?p=65815在Delphi中定位文件位置_Delphi

  Caption=’直接定位文件’

   Button2中:

  Caption=’定位到文件夹’

  OpenDialog1中:

  Filter= ‘所有文件(*.*)|*.*|’

  +’文本文件(*.txt)|*.txt|’

  +’应用程序(*.exe,*.com)|*.exe;*.com’

  FilterIndex=1

  下面是实现的具体程序代码:

  unit FileLocateUnit1;

  interface

  uses

  ……,FileCtrl;

  type

  TForm1 = class(TForm)

   Button1: TButton;

  ……

  implementation

  {$R *.DFM}

  //直接定位到文件的实现代码

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  OpenDialog1.Execute;

  //执行“打开”文件对话框

  Label1.Caption:=OpenDialog1.FileName;

  //将返回的结果值传递给控件Label1

  //要注意,只有当用户选择了一个文件并且按了“确定”按钮后才能返回此结果。

  Label1.Refresh;

  end;

  //定位到文件夹的实现代码

  procedure TForm1.Button2Click(Sender: TObject);

  var

  strCaption,strDirectory:String;

  wstrRoot:WideString;

  begin

  strCaption:=’这是浏览文件夹的说明文字,可以根据需要进行书写。’

  +#13#10+’一般二行文字就满了。’;

  //该参数是浏览文件夹窗口的显示说明部分

  wstrRoot:=”;

  //这个参数表示所显示的浏览文件夹窗口中的根目录,默认或空表示“我的电脑”。

  SelectDirectory(strCaption,wstrRoot,strDirectory);

  Label2.Caption:=strDirectory;

  //传递结果,其中参数strDirectory表示函数的返回值

  Label2.Refresh;

  end;

  end.

  按F9编译执行上面的代码,执行结果如图1所示。

  从两种方法的比较来看,如果想让用户直观地选择文件,我们可以使用“打开”对话框控件;如果只想定位到文件夹,或者想将程序存取的文件对用户保密,我们应选择函数SelectDirectory作为实现的手段。

  另外,如果想限制用户定位文件的权限,最好使用函数SelectDirectory来实现,因为它通过使用Root参数限定了根目录的位置,并且不能再向上返回。图2是限定根目录为C:/Program Files/Borland/Delphi5的情况,这样就可以更好地避免用户误操作,而使用“打开”对话框控件则不能实现这一要求。

欢迎大家阅读《在Delphi中定位文件位置_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


搞代码网(gaodaima.com)提供的所有资源部分来自互联网,如果有侵犯您的版权或其他权益,请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected],我们会在看到邮件的第一时间内为您处理,或直接联系QQ:872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:在Delphi中定位文件位置_Delphi

喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址