日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

在Delphi中定位文件位置

在Delphi中定位文件位置

更新時(shí)間:2022-05-02 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

在Delphi中,定位文件的操作主要有兩種方法。一種是直接定位文件,即通過“打開”對(duì)話框(OpenDialog)控件來實(shí)現(xiàn)。另一種是只定位到文件夾,然后再在此文件夾內(nèi)尋找文件,這種定位方法是利用Delphi提供的SelectDirectory函數(shù)。這個(gè)函數(shù)是在FileCtrl單元中定義的,因此在使用時(shí)不要忘記在Uses中加入單元名。

  下面就以一個(gè)例子來說明這兩種方法在Delphi中的具體實(shí)現(xiàn):

  首先建立一個(gè)新的工程,然后在窗體上加入兩個(gè)按鈕控件、一個(gè)“打開”對(duì)話框,再加入兩個(gè)標(biāo)簽控件作為兩種實(shí)現(xiàn)結(jié)果的存儲(chǔ)控件。

  各個(gè)控件的主要屬性設(shè)置如下:

  Button1中:

  Caption='直接定位文件'

   Button2中:

  Caption='定位到文件夾'

  OpenDialog1中:

  Filter= '所有文件(*.*)|*.*|'

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

  +'應(yīng)用程序(*.exe,*.com)|*.exe;*.com'

  FilterIndex=1

  下面是實(shí)現(xiàn)的具體程序代碼:

  unit FileLocateUnit1;

  interface

  uses

  ……,FileCtrl;

  type

  TForm1 = class(TForm)

   Button1: TButton;

  ……

  implementation

  {$R *.DFM}

  //直接定位到文件的實(shí)現(xiàn)代碼

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  OpenDialog1.Execute;

  //執(zhí)行“打開”文件對(duì)話框

  Label1.Caption:=OpenDialog1.FileName;

  //將返回的結(jié)果值傳遞給控件Label1

  //要注意,只有當(dāng)用戶選擇了一個(gè)文件并且按了“確定”按鈕后才能返回此結(jié)果。

  Label1.Refresh;

  end;

  //定位到文件夾的實(shí)現(xiàn)代碼

  procedure TForm1.Button2Click(Sender: TObject);

  var

  strCaption,strDirectory:String;

  wstrRoot:WideString;

  begin

  strCaption:='這是瀏覽文件夾的說明文字,可以根據(jù)需要進(jìn)行書寫。'

  +#13#10+'一般二行文字就滿了。';

  //該參數(shù)是瀏覽文件夾窗口的顯示說明部分

  wstrRoot:='';

  //這個(gè)參數(shù)表示所顯示的瀏覽文件夾窗口中的根目錄,默認(rèn)或空表示“我的電腦”。

  SelectDirectory(strCaption,wstrRoot,strDirectory);

  Label2.Caption:=strDirectory;

  //傳遞結(jié)果,其中參數(shù)strDirectory表示函數(shù)的返回值

  Label2.Refresh;

  end;

  end.

  按F9編譯執(zhí)行上面的代碼,執(zhí)行結(jié)果如圖1所示。

  從兩種方法的比較來看,如果想讓用戶直觀地選擇文件,我們可以使用“打開”對(duì)話框控件;如果只想定位到文件夾,或者想將程序存取的文件對(duì)用戶保密,我們應(yīng)選擇函數(shù)SelectDirectory作為實(shí)現(xiàn)的手段。

  另外,如果想限制用戶定位文件的權(quán)限,最好使用函數(shù)SelectDirectory來實(shí)現(xiàn),因?yàn)樗ㄟ^使用Root參數(shù)限定了根目錄的位置,并且不能再向上返回。圖2是限定根目錄為C:\Program Files\Borland\Delphi5的情況,這樣就可以更好地避免用戶誤操作,而使用“打開”對(duì)話框控件則不能實(shí)現(xiàn)這一要求。

溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 日韩成人在线观看 | 麻豆果冻精品一区二区 | 日本激情网站 | 亚洲国产精品嫩草影院 | 欧美色爱综合网 | 精品伊人久久久久网站 | 91精品国产一区二区三区左线 | 亚洲精品国产精品国自产观看 | 国产精品久久久久免费 | 夜夜性日日交xxx性视频 | 天天做天天爱天天影视综合 | 婷婷精品视频 | 日韩a级片视频 | 国产91福利| 国产亚洲精品久久久久久久软件 | 精品国产免费第一区二区 | 国产精品久久久久久久久久免费 | 台湾佬自偷自拍情侣在线 | 91色在线观看 | 在线免费亚洲 | 福利视频一二三在线视频免费观看 | 欧美日韩视频一区二区 | 2018久久久国产精品 | 精品国产高清a毛片无毒不卡 | 日韩大片免费观看 | 爱操影院 | 亚洲一区精品视频在线 | 国产精品久久久久免费视频 | 成人福利视频网址 | 久久国产精品久久久 | 亚洲视频在线观看网站 | 日日射天天操 | 99精品国产综合久久久久 | 天天色综合久久 | 欧美一区永久视频免费观看 | 最近中文字幕最新在线视频 | 久久久久欧美精品三级 | 亚洲国产欧美日韩一区二区三区 | 亚洲精品国产综合一线久久 | 欧洲性开放大片免费观看视频 | 久久综合琪琪狠狠天天 |