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;

[himitsu]

Es gibt z.B. Probleme mit relativen Pfaden, bei solchem Vorgehen.

Zitat von Delphi.Narium:

ReverseString

Hatte ich auch schonmal so gemacht, aber im Grunde ist es nur eine Krücke, um mit POS, einer Funktion, welche das Erste sucht, das Letzte zu suchen, anstatt etwas zu verwenden, was das Letzte sucht.
Pos/PosEx in einer Schleife (immer noch schneller, als ein/zwei mal ReverseString)

Wobei das zweite ReverseString garnicht nötig ist, wenn man die gefundene Position mit Length verrechnet, um direkt aus dem originalen String zu kopieren,

aber
string.LastIndexOf
string.LastDelimiter


oder, wie es Uwe bereits zeigte, also Pfadnamenfunktionen, zum Extrahieren des letzten Namen.

[Uwe Raabe]

Auch eine Alternative:

Delphi-Quellcode:

  var arr := tmpSrcPath.Split(['\', ':']); // oder auch SplitString
  Result := arr[High(arr)];

[Christian Seehase]

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.

[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.