怎么样将用extractfilepath(application.exename)取得的路经修改?

Question

我用extractfilepath(application.exename)取得的路径是...\xiaoshou\pro\,
但是我的数据文件路径是.....xiaoshou\db\,请问如何将extractfilepath(application.exename)取得路径后面的pro去掉，使默认的路径为...\xiaoshou\
请问delphi中有没有像VF中的&的功能，譬如变量a='bank',在vf中可以直接用&a来代替'bank'字符，
  请大家帮帮我吧，我实在是不知道该怎么解决？

Answer 1

1 ...\xiaoshou\pro\..\
2 Delphi 中沒有宏替換

Answer 2

那你可以在...\xiaoshou\pro（先去掉最后一个\）用 i=pos(path,'\')定位，
再用copy(path,1,i-1)取得路径

Answer 3

var FilePath,FilePathName,DataPath:String;
begin
  FilePath:=ExtractFilePath(Application.ExeName);
  FilePathName:=Copy(FilePath,1,GetLength(FilePath)-4);  //'Pro\'是4位数;
  DataPath:=FilePathName+'db\';
end;
注：虽然办法是笨了点，可是容易理解;

Answer 4

一群白痴.  直接用   ..\pro   就行了.