Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

position:=pos(' ',ToDo);

if position>0 then ToDo:=RightStr(ToDo,Length(ToDo)-position);

//Читаем путь к файлу

position:=pos(' ',ToDo);

if position>0 then FileName:=LeftStr(ToDo,position-1);

//Читаем пароль

PassW:=RightStr(ToDo,Length(ToDo)-position);

//Всё правильно? Начинаем!

if (isCrypt<=0) or (PassW=EmptyStr) or (not FileExists(FileName)) then writeln('Wrong command')

else begin

TranslatedFile:=ExtractFilePath(paramStr(0)) + 'translated_' + ExtractFileName(FileName);

//соединяемся с файлами

AssignFile(F, FileName);

AssignFile(F1, TranslatedFile);

//переходим в начало файла

Rewrite(F1);

Reset(F);

//читаем строки, пока не дойдем до конца файла

while not EOF(F) do begin

//читаем из переводимого файла

ReadLn(F, Line);

if isCrypt=1 then Line:=Decrypt(Line);

if isCrypt=2 then Line:=Crypt(Line);

//записываем в файл с переводом

Writeln(F1, Line);

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





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата