Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Reset(InputF, 1);

ErrorByte:=IOResult;

ErrorMessage;

If NormalWork then Writeln('Pak file : ',ParamStr(3),'...');

end;

procedure ResetArchiv;

{ --- открытие файла архива, или его создание --- }

begin

St:=ParamStr(2);

If Pos('.',St)0 then Delete(St,Pos('.',St),4);

St:=St+'.vsg';

Assign(OutputF, St);

Reset(OutPutF,1);

Create:=False;

If IOResult=2 then

begin

Rewrite(OutputF, 1);

Create:=True;

end;

If NormalWork then

If Create then Writeln('Create archiv : ',St,'...')

else Writeln('Open archiv : ',St,'...')

end;

procedure SearchNameInArchiv;

{ --- в дальнейшем - поиск имени файла в архиве --- }

Рекомендуем скачать другие рефераты по теме: продажа рефератов, ломоносов реферат.





Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата