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.