Home

Page 134
Page 134
background image

Система

for i := 0 to

 do

if

 then

begin

FSrc:=FSrc+

#0;

end;

 FDes, false);

end;

Этот код идентичен тому, что мы написали для кнопки Копировать. Разница

только в вызове процедуры

 где мы указываем операцию

 [2], что означает перемещение. А в остальном там так же опре-

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

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

В обработчике нажатия кнопки Удалить пишем следующий код (лис-

тинг 3.19).

1истинг 3.19. Обработчик щелчка на кнопке удаления файлов

procedure
var

i: integer;

 string;

begin

if

 then

exit;

if FilesListView.isEditing then

exit ;

for i := 0 to

 do

if

 then

begin


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

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