用OpenDialog如何取得打开的文件的完整路径？

Question

OpenDialog打开一个文件，如何取得文件的完整路径。就是我在C盘打开一个a.txt的文件，我应该如何取得“c:\a.txt"这个路径信息？

Answer 1

OpenDialog.FileName就是全名，带完整路径和文件名

Answer 2

OpenDialog本身就是路径全名呀！

Answer 3

strPath := OpenDialog1.FileName

Answer 4

var
 path :string;........
path:=OpenDialog1.FileName;

Answer 5

if opendialog1.Execute then
 richedit1.Lines.LoadFromFile(OpenDialog1.FileName);
 OpenDialog1.InitialDir := 'c:\data';

Answer 6

if opendialog1.Execute then
 richedit1.Lines.LoadFromFile(OpenDialog1.FileName);

Answer 7

如果要获取完整的路径，就需要一个库函数。如下：
var
  filepath:string;
begin
if opendialog1.execute then
begin
  filepath:=Extractfiledir(opendialog1.filename);
  //此时，filepath里面就是获取的完整路径了，如果要带文件名的当然就是opendialog1.filename了
end;

Answer 8

OpenDialog返回的filename本身就带全路径，如果只需路径，不需文件名的话，可用extractfilepath获得,如extractfilepath('c:\windows\win.com')，结果为c:\windows\

Answer 9

var 
  temp:string;
being
if opendialog1.Execute then
   temp:=OpenDialog.FileName;
showmessage(temp);
end;