码迷,mamicode.com
首页 > Windows程序 > 详细

delphi 获得父目录–指定级父目录

时间:2019-09-20 19:20:52      阅读:122      评论:0      收藏:0      [点我收藏+]

标签:pat   integer   ctf   rac   RoCE   delphi   mst   set   function   

function get_dir_parent(dir:string;n:integer):string//n为几级父目录
var
st:string;
i:integer;
begin

 

     st:=GetCurrentDir;
     SetCurrentDir(dir);
     for i:=1 to n do
     begin
               ChDir(‘..‘);

     end;
     result:=GetCurrentDir;
     SetCurrentDir(st);//恢复最初

end;

调用
procedure TForm1.Button1Click(Sender: TObject);
begin

     showmessage(get_dir_parent((ExtractFilePath(ParamStr(0))),1));
end;

delphi 获得父目录–指定级父目录

标签:pat   integer   ctf   rac   RoCE   delphi   mst   set   function   

原文地址:https://www.cnblogs.com/tc310/p/11558797.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!