Letztes Verzeichnis im String ermitteln

[Delphi.Narium]

Bestimmt nicht die beste Lösung, aber scheint zu funktionieren:

Delphi-Quellcode:

function GetLetztesVerzeichnis(s : String) : String;
begin
  s := ExcludeTrailingPathDelimiter(ExtractFilePath(s));
  s := ReverseString(s);
  s := Copy(s,1,Pos('\',s) - 1);
  Result := ReverseString(s);
end;