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

Question

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

Answer 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.

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

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

Answer 2

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

Answer 3

Это будет работать на всех папках, независимо от того, имеет ли она обратную косую черту:

ExtractFileName(ExcludeTrailingBackslash(Path))

Answer 4

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

uses SysUtils;

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