[Midmal]

В общем у меня такой не замысловатый вопрос, каким образом можно реализовать определение родительской директории указанной папки.
Я знаю один способ но для его удачного использования требуется компонент

Код:

UBPFD.TrimEx

[Aristarh Dark]

ExtractFilePath работает и для директорий, попробуй и увидишь.

[Страдалецъ]

Так он возвращает не родительскую директорию, а дочернюю по отношению к родительской (О завернул!)
А для получения родительской можно сделать так:

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir\';
 Form33.Caption := Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1);
end;

Если кто вспомнит как называется функция поиска строки справа, то можно сделать попроще.

[Aristarh Dark]

Страдалецъ, расскажи в чем отличия результатов?

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir';
 ShowMessage(Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1));
 ShowMessage(ExtractFilePath(Path));
end;

[Rokuell]

Aristarh Dark, А если так ?

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir\';
 ShowMessage(Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1));
 ShowMessage(ExtractFilePath(Path));
end;

Вариант 1 выдаёт: C:\ParentDir\
Вариант 2 выдаёт: C:\ParentDir\ChildDir\

[Страдалецъ]

Именно так. Челу же нужна родительская т.е. вышестоящая по отношению к выбранной. И вызов данной функции оправдан при вложенности более одного.