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

procedure ErrorMessage;

{ --- вывод сообщения об ошибке --- }

begin

If ErrorByte 0 then

begin

Case ErrorByte of

2 : Writeln('File not found ...');

3 : Writeln('Path not found ...');

5 : Writeln('Access denied ...');

6 : Writeln('Invalid handle ...');

8 : Writeln('Not enough memory ...');

10 : Writeln('Invalid environment ...');

11 : Writeln('Invalid format ...');

18 : Writeln('No more files ...');

else Writeln('Error #',ErrorByte,' ...');

end;

NormalWork:=False;

ErrorByte:=0;

end;

end;

procedure ResetFile;

{ --- открытие файла для архивации --- }

Var St : string;

begin

Assign(InputF, ParamStr(3));

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



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

Поделитесь этой записью или добавьте в закладки