Убрать или добавить бэкслэш в конец пути

Delphi , Файловая система , Файлы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
For People (as I am) who can't manage with all of this function names and 
forget some "jewels". 
You should sometimes "rename" such procedures if it helps you to remember. 
}

 { 
Die Unit Sysutils verbirgt einige Funktionen, die oft in Vergessenheit 
geraten. 
Kapselt die Funktion aus "Sysutils" in einer Funktion mit einem 
"ansprechenden" Namen. 
}


 { IncludeTrailingBackslash }

 // Adds '\' to the end of a string if it is not already there. 
// Die Funktion gibt einen Pfadnamen mit dem abschlieЯenden Zeichen '\' zurьck. 

function CheckPfadEnd(const P: string): string;
 begin
 Result := IncludeTrailingBackslash(P);
 end;


 { ExcludeTrailingBackslash }

 // Removes one '\' from the end of a string if it is there. 
// Die Funktion gibt einen Pfadnamen ohne das abschlieЯende Zeichen \ zurьck. 


MyDir := ExcludeTrailingBackslash('c:\Windows\');
 // ---> MyDir = c:\Windows 

Перевод контента на русский язык:

Код, предоставленный в этом примере, написан на языке программирования Pascal и связан с управлением путями файлов.

В коде есть две функции: CheckPfadEnd (IncludeTrailingBackslash) и ExcludeTrailingBackslash.

1. Функция CheckPfadEnd принимает путь в качестве входных данных и добавляет символ обратной косой черты (\) в конец пути, если он не уже там.
2. Функция ExcludeTrailingBackslash удаляет один символ обратной косой черты из конца пути, если он существует.

В примере функцию ExcludeTrailingBackslash используют для удаления символа обратной косой черты из конца пути 'c:\Windows\', что возвращает результат 'c:\Windows'.

В этом примере предлагается альтернативное решение с использованием встроенной функции Delphi PathAddBackSlash:

function CheckPfadEnd(const P: string): string;
begin
  Result := PathAddBackSlash(P);
end;

function ExcludeTrailingBackslash(const P: string): string;
var
  Len: Integer;
begin
  Len := Length(P);
  if (Len > 1) and (P[Len - 1] = '\') then
    Delete(P, Len - 1, 1);
  Result := P;
end;

Функция PathAddBackSlash добавляет символ обратной косой черты в конец пути, если он не уже там. Функция ExcludeTrailingBackslash удаляет один символ обратной косой черты из конца пути, если он существует.

Обратите внимание, что в этом альтернативном решении функция ExcludeTrailingBackslash также проверяет, является ли длина входного строки больше 1 символа и является ли последний символ обратной косой чертой перед попыткой удаления. Это предотвращает ошибку "Индекс вне диапазона" при обработке входных данных, не содержащих символ обратной косой черты в конце.

В статье рассматриваются функции IncludeTrailingBackslash и ExcludeTrailingBackslash, которые помогают добавить или удалить бэкслэш в конце пути.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::