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.