Letztes Verzeichnis im String ermitteln

[Christian Seehase]

Da unter Windows als Pfadtrenner Slash (/) und Backslash (\) zulässig sind
und das auch in beliebiger Anzahl hintereinander habe ich mir sowas erstellt:

Delphi-Quellcode:

function csExcludeTrailingPathDelimiterWin(const AsInput : string) : string;

var
  i : integer;

begin
  Result := AsInput;
  i      := length(AsInput);
  if i = 0 then exit;
  while CharInSet(AsInput[i],['\','/']) do dec(i);
  Result := Copy(AsInput,1,I);
end;

Im Explorer funktioniert das mit den gemischten und mehreren Pfadtrennern
zwar nicht, aber in der Console.