Путь дриктории

[HTTqp]

если я иду назад по папке, то как сделать удаление лишней информации в Labe1.Caption, то есть путь был
С:\windows\system\ , я вышел из нее и чтобы путь сократился до С:\windows\

{Переход по папкам}
procedure TForm1.ListView1Click(Sender: TObject);
var
path:String;
begin
path:=Path+'\';
path:=Label1.Caption+path+ ListView1.Selected.Caption + '\';
UpdateFile;
Label1.Caption:=Path;
end;

[XE5]

ShowMessage(ExtractFileDir('c:\windows\system'));

[northener]

Сообщение от XE5

ShowMessage(ExtractFileDir('c:\windows\system'));

Пример кода не соответствует описанию задачи.

Сообщение от HTTqp

если я иду назад по папке, то как сделать удаление лишней информации в Labe1.Caption, то есть путь был
С:\windows\system\ , я вышел из нее и чтобы путь сократился до С:\windows\

{Переход по папкам}
procedure TForm1.ListView1Click(Sender: TObject);
var
path:String;
begin
path:=Path+'\';
path:=Label1.Caption+path+ ListView1.Selected.Caption + '\';
UpdateFile;
Label1.Caption:=Path;
end;

Не путай путь (Path) с папкой/каталогом/директорией и т.д. (Dir).
Чтобы иметь возможность указать полное имя файла используй Path, ибо у него на конце стоит спецсимвол. Чтобы иметь возможность ходить по дереву каталогов/папок/директорий используй Dir.

[Alter]

Примерно так

function UpFolderLevl(Path :String):String;
var
 Buf :String;
begin // Убирает одну папку, из пути
 Result := Path;
 Buf := Path;
  // корневой каталог
 If  IncludeTrailingBackslash(ExtractFileDrive(Buf))=Buf then exit; 
 If Buf[Length(Buf)]='\' then
  Delete(Buf, Length(Buf), 1); // убрать слеш с конца
 While Buf[Length(Buf)]<>'\' Do
 begin
  Application.ProcessMessages();
  Delete(Buf, Length(Buf), 1);
 end;
  Result := Buf;
end;

Применить сумеете.

[HTTqp]

northener, спасибо что пояснил что такое path, не знал что он использует спец символ в конце строки.
Alter, спасибо, за вариант, уже решил, но за код спасибо)