Delphi World - Убрать или добавить бэкслэш в конец пути
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Убрать или добавить бэкслэш в конец пути

Оформил: 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 
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования