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

Question

У меня есть путь сказать C: \ Program Files \ Borland Что бы поставил самый простой способ разобрать эту строку и просто вернуть Borland? спасибо

Answer 1

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

Answer 2

попробуйте использовать функцию 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. 

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

Path Manipulation Routines

Answer 3

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

uses SysUtils; 

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