Home

Page 133
Page 133
background image

126 Глава 3

После цикла в переменную FSrc добавляется еще один нулевой символ.

Таким образом, в конце строки будет два символа

 что и будет означать

конец строки:
for i := 0 to

 do

if

 then

begin

#0;

end;

После этого вызывается написанная нами ранее процедура

 ука-

зывая все необходимые параметры. В качестве второго параметра указана
операция, которую надо выполнить—

 что равно команде

 Третий и четвертый параметр — это пути источника и приемника

(откуда и куда надо копировать).

Теперь напишем код для кнопки Переместить. Для этого в обработчике со-
бытия

 соответствующей кнопки пишем следующее (листинг 3.18).

procedure

 string;

begin

FDes :=

if

 then

exit;

if not

 FDes) then

exit;

if

 then

FSrc


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

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