16.35.4. function NormalDir

function NormalDir(ADirName : string) : string;

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

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

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

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

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

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

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

Примеры:

begin

AddToLog(NormalDir('c:\test1'));

AddToLog(NormalDir('c:\\test2'));

AddToLog(NormalDir('c:\\test/abc/'));

AddToLog(NormalDir('%SysDisk%:\\test123'));

end.

В результате работы пример выведет в протокол:

c:\test1\

c:\test2\

c:\test\abc\

c:\test123\