Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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, которые помогают добавить или удалить бэкслэш в конце пути.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-23 21:35:35/0.010993003845215/0