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

[BeerWang]

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

[blueshu]

extractfilepath

[songqianyong]

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

[huojiehai]

Opendialog1.FileName

Savedialog1.FileName

[tiexinliu]

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

[BeerWang]

可否具体说说Save and Open

[楚人无衣]

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

[statesman]

path := ExtractFilePath(Application.ExeName)
Ok

[BeerWang]

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

[ManagerMan]

问题描述不清楚

[sailer_shi]

你要得到那里的路径呀，系统、主程序、还是别的？

[BeerWang]

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

[47522341]

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;

[icd]

oh,还不知道吗
上面的人已经讲得很清楚了

[icd]

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

extractfilepath('F:\databak\stu.dat');
得到stu.dat

extractfilename('F:\databak\stu.dat');
得到'F:\databak\

[chl_ccssddnn]

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

end;

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

[47522341]

呵呵。这样呀，
那。
判断得到的路径中最后一个‘\’的位置。
然后复制从该位置开始的字符串；具体方法不用说了吧。

[47522341]

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