Question

在DELPHI中如何获得文件路径

如何像其它程序那样点了'流览'按钮后可以在文本框里显示出所选择的文件完整路径呢

Answer 1

begin
edit1.text:=extractfiledir(application.ExeName);
edit1.text:=extractfilepath(application.ExeName);
这个是获取自身目录的函数，两函数不同的是一个路径后带有"\"，一个没有

如果要获取打开文件的路径，使用opendialog控件（在dialogs控件组下）：
begin
if opendialog1.Execute then
edit1.text:=opendialog1.FileName ;
//在文本框显示路径
end;