Würde ich heute so schreiben:
Delphi-Quellcode:
uses
System.SysUtils, System.IOUtils;
...
function GetLastDirectory(const Directory: string): string;
begin
Result := TPath.GetFileName(ExcludeTrailingPathDelimiter(Directory))
end;
Müsste man vielleicht noch mit den realen Randbedingungen testen (z.B. Pfade mit Punkten, nur Laufwerk usw.)