Letztes Verzeichnis im String ermitteln

[DieDolly]

Dieser Code hier ist vermutlich schon seit 10 Jahren in meiner pas-Datei und wurde seitdem auch nicht verändert.
Ich würde euch gerne fragen, ob dieses Vorhaben besser umsetzbar ist.

Bitte nicht hauen, der Code ist uralt und echt nicht gut.

Delphi-Quellcode:

function GetLastDirectory(Directory: string): string;
var
 tmpSrcPath: string;
begin
 Directory := Trim(Directory);

 if Directory = '' then
  Exit;

 tmpSrcPath := Directory;

 if EndsStr('\', tmpSrcPath) then
  tmpSrcPath := Copy(tmpSrcPath, 1, Length(tmpSrcPath) - 1);

 if Pos(':', tmpSrcPath) > 0 then
  tmpSrcPath := StringReplace(tmpSrcPath, ':', '', [rfReplaceAll]);

 if Trim(tmpSrcPath) <> '' then
  Result := Copy(tmpSrcPath, LastDelimiter('\', tmpSrcPath) + 1, Length(tmpSrcPath))
 else
  Result := '';
end;