Форум АНТИЧАТ - Ошибка i/o error 32

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Ошибка i/o error 32

02.12.2009, 17:52

~~DeaD_MoroZ~~

Banned

Регистрация: 03.11.2009

Сообщений: 112

Провел на форуме:
98006

Репутация: 17

Отправить сообщение для DeaD_MoroZ с помощью ICQ

Ошибка i/o error 32

Знаю что глупый вопрос-но всё же, подскажите где ошибка:

Код:

procedure divide();
var raspr:integer;
f,p1,p2:textfile;
text:string;
begin
raspr:=2;
FileCreate('C:\1\part1.txt');
FileCreate('C:\1\part2.txt');
assignfile(f, 'C:\1\main.txt');
assignfile(p1, 'C:\1\part1.txt');
assignfile(p2, 'C:\1\part2.txt');
Reset(f);
reWrite(p1); <--Ошибка вот тут
reWrite(p2);
while not Eof(f) do
begin
ReadLn(f, text);
if raspr mod 2=0 then
WriteLn(p1, text) else
WriteLn(p2, text);
inc(raspr);

end;
CloseFile(f);
CloseFile(p1);
CloseFile(p2);
end;

------------------
SLESH: Когда ты уже научишься код оформлять в теги [ code ] [ /code ]???

Последний раз редактировалось slesh; 03.12.2009 в 11:03.. Причина: [code][/code]