function NormalDir

function NormalDir(ADirName : string) : string;

Производит нормализацию имени папки. Нормализация предполагает:

•	Удаление пробелов в начале и конце имени папки

•	Производит замену "/" на "\"

•	Производит удаление повторяющихся слешей (например, C:\\abc). Исключение - это парный слеш в начале сетевого пути

•	При необходимости добавляет слеш в конце пути

•	Замену макросов на их значения. Подробнее про макросы см. в разделе "макросы, допустимые в именах файлов"

Данная функция удобна в различных процедурах, производящих обработку каталогов.

Примеры:

NormalDir('c:\test') = 'c:\test\'

NormalDir('c:\\test') = 'c:\test\'

NormalDir('c:\\test/abc/') = 'c:\test\abc\'

NormalDir('%SysDisk%:\\test') = 'c:\test\'