如何得到文件的路径名??

Question

我在程序中使用Delphi里的标准函数 save 和 Open
我想得到save 或 open 的文件路径名,,我该怎么做???

Answer 1

比如取应用程序的路径 filepath:=extractfilepath(application.exename);

Answer 2

Opendialog1.FileNameSavedialog1.FileName

Answer 3

用opendialog,和savedialog的filename可以得到.
var
  path_name:string;//带文件名的路径
begin
  if opendialog1.execute then
    path_name:=opendialog1.filename;
end; 

Answer 4

可否具体说说Save and Open

Answer 5

用songqianyong(其实我也想进步！) 的方法：
path := ExtractFilePath(Application.ExeName)

Answer 6

path := ExtractFilePath(Application.ExeName)
Ok

Answer 7

我现在用SaveDialog 和 OpenDialog 了
反正我只是想要路径名,,不用真的保存

Answer 8

我用SaveDialog 和 OpenDialog 的FileName 得到了路径名 如:F:\databak\stu.dat
现在我想再单独取文件名 如:stu.dat,,怎么做呢??

Answer 9

procedure button1.click(sender: Tobject);
var filepath: string;
begin
if opendialog1.execute then
begin
  filepath := opendialog1.filename;
end;if savedialog1.execute then
begin
  filepath := opendialog1.filename;
end;end;

Answer 10

我用SaveDialog 和 OpenDialog 的FileName 得到了路径名 如:F:\databak\stu.dat
现在我想再单独取文件名 如:stu.dat,,怎么做呢??extractfilepath('F:\databak\stu.dat');
得到stu.datextractfilename('F:\databak\stu.dat');
得到'F:\databak\

Answer 11

if opendialog1.execute then
begin
//获得打开文件的路径
  filepath := extractfilepath(opendialog1.filename);
//其他你的代码end;if savedialog1.execute then
begin
//获得保存文件的路径
  filepath := extractfilepath(opendialog1.filename);
//其他你的代码
end;

Answer 12

icd（骆驼）兄好像说反了，
你自己再试试，