Letztes Verzeichnis im String ermitteln

[DieDolly]

Da meine Pfdade intern alle mit UNC-Prefixen versehen sind, habe ich mir daraus sowas gemacht

Delphi-Quellcode:

function GetLastDirectory(Directory: string): string;
var
 arr: TArray<string>;
begin
 // Directory := ... UNC-Prefix entfernen ...
 arr := (ExcludeTrailingBackslash(Directory)).Split(['\', ':']);

 if (arr[High(arr)] <> '') then
  Result := arr[High(arr)]
 else
  Result := ExtractFileDrive(Directory).Replace(':', ''); // Das hier trifft zu, wenn "Directory" beispielsweise "F:\" ist. Resultat ist dann "F"
end;

// Ob "F" dann richtig ist oder nicht, darüber kann man sich streiten denke ich.