Home » Tipps & Tricks » Dateien/Verzeichnisse » Verzeichnisse » Verzeichnisebene eines Dateipfads ermitteln

Verzeichnisebene eines Dateipfads ermitteln

Wenn man wissen will, in welcher Ebene des Dateisystems sich ein Pfad befindet, kann man die Funktion DirLevel zu Hilfe nehmen. Sie tut nichts anderes als die Backslashes zu zählen. Die Funktion DirLevel muss dazu jedoch aus dem Quellcode der Unit FileCtrl kopiert werden, da sie dort nur intern verwendet wird und nicht im Interface steht. Alternativ kann man sich die Funktion auch selbst schreiben:

function DirLevel(path: string): integer;
begin
  result:=0;
  while pos('', path)>0 do begin
    inc(result);
    Delete(path, 1, pos('', path));
  end;
end;