Auf übergeordneten Ordner zugreifen (Relativ!)

[ErazerZ]

Delphi-Quellcode:

function UpFolder(Path: String): String;
var
  i: Integer;
begin
  if Copy(Path, Length(Path), 1) = '\' then
    Delete(Path, Length(Path), 1);
  i := LastDelimiter('\', Path);
  Delete(Path, i +1, Length(Path));
  Result := Path;
end;