Delphi 7 получает имя папки из пути

Ответ 1

попробуйте использовать функцию ExtractFileName, эта функция работает только (для вашего примера), если ваш путь не завершится с помощью обратной косой черты, так что вы может использовать функцию ExcludeTrailingPathDelimiter, чтобы удалить окончательную обратную косую черту.

см. этот образец

program ProjectExtractPathDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    Path : string ;
begin
  Path:='C:\Program Files\Borland';
  Writeln(ExtractFileName(Path));//return Borland

  Path:='C:\Program Files\Borland\';
  Writeln(ExtractFileName(Path));//return ''

  Path:='C:\Program Files\Borland\';
  Writeln(ExtractFileName(ExcludeTrailingPathDelimiter(Path)));//return Borland


  Readln;
end.

проверьте эту ссылку для получения дополнительной информации

Процедуры манипулирования трафиком

Ответ 2

Вы можете получить все, что приходит после последней обратной косой черты с ExtractFileName, которая находится в блоке SysUtils.

Ответ 3

Чтобы непосредственно проанализировать эту строку и просто вернуть "Borland", вы можете сделать это:

uses SysUtils;

Delete(Path, 1, LastDelimiter('\', Path));