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

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

1 楼DongXF（孔雀东南飞）回复于 2003-11-02 17:14:48 得分 5

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

2 楼cultureright（文）回复于 2003-11-02 17:20:22 得分 5

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

3 楼chuxin1（华南）回复于 2003-11-02 18:34:11 得分 20

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

4 楼kejian（御剑飞仙）回复于 2003-11-04 12:57:31 得分 0

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

5 楼kejian（御剑飞仙）回复于 2003-11-04 12:57:57 得分 0

错了,     是     ..\dbTop

相关问题

• application
• xiaoshou
• extractfilepath
• exename
• 路径
• filepathname
• 取得
• pro
• filepath

• 帖主：jhzhao2001
• DongXF
• cultureright
• chuxin1

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载