选择文件及文件夹（程序路径问题）

时间：2011-03-16 来源：阿飛

自从那个工具框架做好之后，我很久没来这里了，其实也是很久没有弄delphi了，因为有个考试要面临，现在考完了，要开始来学习了，呵呵。这次我在框架上添了一个选择文件及文件夹的页面，先看看效果吧，很简单的东西。

其实弄这些都是为了备忘，有的时候代码自己直接拿来参考下！

界面：

挠，就是嘎样子咧，这个是很简单的，三个按钮，三个功能，分别是弹出英文对话框选择文件夹，中文对话框选择文件夹以及选择文件对话框。下面几个便是效果和实现代码：

这个是英文对话框，代码：

1 //文件夹选择（英文对话框）
2 procedure TfaChooseFileOrFolder.Button2Click(Sender: TObject);
3 var
4 Dir: string;
5 begin
6 inherited;
7 Dir := 'C:\'; // 缺省为C:\
8 if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
9 Edit1.Text := Dir; // Dir返回选择的文件夹
10 end;

中文对话框，代码：

1 //文件夹选择（中文对话框）
2 procedure TfaChooseFileOrFolder.Button4Click(Sender: TObject);
3 var
4 strCaption,strDirectory:String;
5 wstrRoot:WideString;
6 begin
7 inherited;
8 strCaption:='这是浏览文件夹的说明文字，可以根据需要进行书写。'+#13#10+'一般二行文字就满了。';
9 //该参数是浏览文件夹窗口的显示说明部分
10 wstrRoot:='';
11 //这个参数表示所显示的浏览文件夹窗口中的根目录，默认或空表示"我的电脑"。
12 SelectDirectory(strCaption,wstrRoot,strDirectory);
13 Edit3.Text:=strDirectory;
14 //传递结果，其中参数strDirectory表示函数的返回值
15 end;

文件选择，代码：

1 // 打开文件
2 procedure TfaChooseFileOrFolder.Button3Click(Sender: TObject);
3 begin
4 inherited;
5 OpenDialog1.Filter := '所有文件（*.*）|*.*|'
6 +'文本文件（*.txt）|*.txt|'
7 +'应用程序（*.exe,*.com）|*.exe;*.com';
8 OpenDialog1.Execute;
9 //执行"打开"文件对话框
10 Edit2.Text:=OpenDialog1.FileName;
11 //将返回的结果值传递给控件Edit2
12 //要注意，只有当用户选择了一个文件并且按了"确定"按钮后才能返回此结果。
13 end;

我也专门做了一个记笔记的page，希望对自己学习有用~~哈哈~~

后来我发现一个问题：在我选择文件或文件夹之后，再去做一个loadfromfile的操作时，就报了下面这个错~~

我理解了很久也没想通为什么，后来网上查了下说是文件不存在，我想我的文件是存在的啊，最后才发现，原来我load文件的时候给的路径是不完整的，应该是主程序目录+相对主程序目录的路径，结果我没有加主程序的目录，于是在选择文件或文件夹的时候，基础路径变了，再加上相对路径就找不到那个文件了。