Убрать или добавить бэкслэш в конец путиDelphi , Файловая система , ФайлыУбрать или добавить бэкслэш в конец пути
Оформил: DeeCo { 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 и связан с управлением путями файлов. В коде есть две функции:
В примере функцию В этом примере предлагается альтернативное решение с использованием встроенной функции Delphi
Функция Обратите внимание, что в этом альтернативном решении функция В статье рассматриваются функции IncludeTrailingBackslash и ExcludeTrailingBackslash, которые помогают добавить или удалить бэкслэш в конце пути. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |