opendialog的default的属性怎么指定？偶用.txt无效，晴举例说明一下；另外，如何把opendialog选择的路径赋予edit1?

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;
end;

Answer 2

OpenDialog1.Filter := 'Text files(*.txt)|*.txt';

Answer 3

偶只想要opendialog选择的路径，
并不想要他选择的文件出现在edit.text里（因为有多个文件要选取）
，怎么版？

Answer 4

是啊，用OpenDialog1.Filename后，出现在EDIT1中的是文件的路径啊！选择的文件内容不会出现在EDIT中啊！

Answer 5

自己再用pos找到最后一个'\'的位置，把她后面的截掉就可以了吗

Answer 6

偶不让文件名也出现，例如 d:\db\access.txt
偶只想要 d:\db\出现在edit的text里就可以了

Answer 7

defual属性不用带“."的。

Answer 8

icd(骆驼) 
自己再用pos找到最后一个'\'的位置，把她后面的截掉就可以了吗 怎么截呢？
 
 

Answer 9

Edit1.text:=ExtractFilePath(OpenDialog1.filename);

Answer 10

如果你想过滤文件类型，那么用filter属性

Answer 11

如果你想过滤文件类型，那么用filter属性

Answer 12

var 
  filepath:String;
begin
  filepath := leftStr(OpenDlg.FileName,1,pos(OpenDlg.FileName,'\'));应该可以吧，记不清了
去看看leftstr的帮助

Answer 13

pos出写错了，应改为找到最后一个'\'的位置的写法

Answer 14

ExtractFilePath就是现成的函数，取路径
还有一系列的函数，如ExtractFileName 取文件名

Answer 15

ExtractfilePath就是现成的函数，取文件路径
还有类似的函数ExtractFileName，取文件名

Answer 16

uses
  FileCtrl;procedure TForm1.Button1Click(Sender: TObject);
var
  vDirectory: string;
begin
  if SelectDirectory('怎么不早说', '', vDirectory) then
    Edit1.Text := vDirectory;
end;

Answer 17

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.text:=extractfilepath(opendialog1.filename);
end;