Parent Directory

[Mathias]

Ich hole auf folgende Weise das ParentDirectory eines Verzeichnispfades.

Gibt es dafür etwas eleganteres oder gar eine fertige Funktion ?

Code: Alles auswählen

  function ParentPath(const Path: string): string;
  begin
    Result := ExtractFilePath(ExcludeTrailingPathDelimiter(Path));
    if Result = '' then begin
      Result := Path;
    end;
  end;

var
  //  s: string = '/Music/Disco/Boney M/';
  s: string = 'c:\Music\Disco\Boney M\';
begin
  WriteLn(s);
  s := ParentPath(s);
  WriteLn(s);
  s := ParentPath(s);
 // usw.

[h-elsner]

Ich würde den String mit split in ein StringArray schreiben und über Index auf die einzelnen Verzeichnisse zugreifen.
s.Split([pathdelim])[0] sollten dann root sein.

[Mathias]

s.Split([pathdelim])[0] sollten dann root sein.

Ist dies nicht ein wenig zu aufwendig, den ganzen String zu zerlegen um ihn nachher wieder zusammen zu bauen ?

[wp_xyz]

Ich würde den String mit split in ein StringArray schreiben und über Index auf die einzelnen Verzeichnisse zugreifen.
s.Split([pathdelim])[0] sollten dann root sein.

Achtung. In Windows würde dann für "c:\Windows" root als "c:" identifiziert. Und auch bei Linux mit "/home/user" wäre root ein Leerstring.

[PascalDragon]

Gibt es dafür etwas eleganteres oder gar eine fertige Funktion ?

In 3.2.3 oder 3.3.1 kannst du in der Unit System.IOUtils die Klassenmethode TDirectory.GetParent nutzen. Oder alternativ kannst du dessen Implementierung auch selbst nutzen:

Code: Alles auswählen

ExpandFileName(IncludeTrailingPathDelimiter(aPath) + '..')

[Mathias]

Gibt es dafür etwas eleganteres oder gar eine fertige Funktion ?

In 3.2.3 oder 3.3.1 kannst du in der Unit System.IOUtils die Klassenmethode TDirectory.GetParent nutzen. Oder alternativ kannst du dessen Implementierung auch selbst nutzen:

Code: Alles auswählen

ExpandFileName(IncludeTrailingPathDelimiter(aPath) + '..')

Danke, mit diesem Einzeiler gehts.