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;