Home

Page 132
Page 132
background image

Система

125

Прежде чем производить попытку копирования, надо проверить, выбрал ли

пользователь какие-либо файлы. Если нет, то нужно выйти из процедуры,

потому что копировать нечего. Эта проверка происходит во второй строке
кода:

if

 then

exit;

После этого на экран выводится окно выбора директории, в которую нужно

будет скопировать выбранные файлы. Делается это с помощью функции

 Если пользователь ничего не выбрал, то происходит выход

из процедуры. Внешний вид окна выбора директории вы можете увидеть на

рис.

Обзор

Select Directory

 Рабочий

 документы

 (А;)

 Data (D:)

 (E:)

 CD-RW дисковод

 Общие документы

 Документы - Администратор

 Сетевое окружение

 3.18. Окно выбора директории

Теперь нужно узнать директорию, из которой происходит копирование.

Полный путь находится в свойстве path компонента

 Также

проверяется, если последний символ пути не равен знаку

 его нужно

добавить:

if

 then

Дальше запускается цикл, в котором проверяются все имена файлов и папок.

Если какое-нибудь имя выделено, то добавляем его к переменной FSrc,

а в конце имени дописываем нулевой символ — #о. Имя следующего выделен-

ного файла тоже будет дописано к этой переменной после нулевого символа.

Получается, что этот абсолютный нуль служит разделителем между именами,
и мы таким образом можем работать с множеством файлов одновременно.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.