在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)這一要求。