10.06.2008, 22:09
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
Обьясните дураку почему так работает
Код:
for i:=0 to razmer do
begin
BlockRead(myFile, oneByte, 1);
oneByte:= oneByte+c;
seek(myfile,i);
Blockwrite(cryptfile,oneByte,1);
seek(cryptfile,i);
end;
а так нет???
Код:
for i:=0 to razmer do
begin
seek(myfile,i);
BlockRead(myFile, oneByte, 1);
oneByte:= oneByte+c;
seek(cryptfile,i);
Blockwrite(cryptfile,oneByte,1);
end;
|
|
|