410 Приложение

{Удаляет файл с именем SS из архива) var

n : Integer;

ch: ^heckType;

begin

{Ищем нужный файл в архиве:}

n := 0;

repeat

ch := FColJ^.Attn) ;

inc(n)

until (ch''.Name=ss) ;

dec (n) ;

{Удаляем запись}

FCol:!^ .AtDelete (n);

FChange :v True end; {DelFile} _•————————————;

Procedure DWT.DelFiles;

{Удаляет файлы из архива} var

R: TRect;

PD: PDelFileBox;

ASB: PScrollBar;

k: Integer;

ch: '^CheckType;

const

cl = 'Используйте клавиши курсора';

ell- ' и Insert для выбора файла';

с2 = 'ESC - отказаться и выйти";

begin

(Формируем окно}

R.Assign(О,О,80,23);

PD := New(PDelFileBox, Init(R,''));

{Вставляем скроллер архивных файлов}

R.Assign(77,5,78,19);

ASB :-New(PScrollBar, Init<R»;

PD".Insert(ASB) ;

R.Assign(2,5,77,19);

PD^.PL := NewfPFileListBox, Init(R,2,ASB));

PD".Insert(PD^.PL) ;

PD^.PL^MarkL := 34;

R.Assignd, 1,79,3) ;

PD^.Insert(New(PStaticText,Init(R,#3+cl+cll+#13»3+c2))) ;

R.Assign(2,4,77,5) ;

VQ".Insert(New(PLabel, Init(R,'-L~ Список архивных файлов:',PD".PL)));

{Вставляем кнопки}

R.Assign(1,20,15,22);

PD". Insert (New (PButton, Init(R,'~S~ Стоп', cmCancel,bfNonn9l)));

R.Assign(16,20,35,22);

PD".Insert(New(PButton, Init(R,'~A~ Выбрать все',cmAll,bfHormal))) ;

R.Assign(36,20,50,22) ;

PD^.Insert(New(PButton, Init(R,'~R~ Удалить',cmRun,bfNormal)));

{Создаем коллекцию имен файлов } PD^.PL^PFL := New(PStringCollection,Ir»it(10,5) ) ;

for It := 0 to predtFColT^ Count) do with PDA.PL'^.PFLЛ do begin

ch := FColl*.At(k);

Insert(NewStr(ch*.Name))