Home » Tipps & Tricks » Dateien/Verzeichnisse » Verzeichnisse » Übergeordnetes Verzeichnis ermitteln

Übergeordnetes Verzeichnis ermitteln

Die folgende Funktion ermittelt aus einem String (bzw. aus einer Pfadangabe) das übergeordnete Verzeichnis. Wenn man dem Parameter APath folgenden String übergibt:
C:\Verzeichnis1\Verzeichnis2
gibt die Funktion folgendes Result zurück:
C:\Verzeichnis1

function GetPreviousDirectory(const APath: string): string;
var
  i: Integer;
begin
  Result:=APath;
  i:=Length(APath);
  if i>3 then
  begin
    repeat
      Dec(i);
    until (APath[i] = '') or (i=1);
    if APath[i]='' then
      Result:=Copy(APath,1,i);
  end;
end;