2021-02-02 09:15

阅读：559

标签：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;

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

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

上一篇：C# List

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：delphi 获得父目录–指定级父目录
文章链接：http://soscw.com/index.php/essay/49903.html

亲，登录后才可以留言！

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