ошибка I/O error 32

[kolduev]

if (FileExists('date.txt')=False) then
begin
FileCreate('date.txt');
AssignFile(f2,'date.txt');
ReWrite(f2);
end;

На ReWrite(f2) вылазит ошибка I/O error 32
в чём проблема?

[puporev]

Проблема видимо в том, что FileCreate('date.txt'); и ReWrite(f2);
несовместимые вещи, вроде как хочешь два раза одно и тоже сделать.
Если вместо ReWrite(f2);напишешь Reset или Append, то ошибки не будет.
Переделай как-то код.

[kolduev]

с Reset тоже самое. а Append чё делает?

[puporev]

Не знаю, что ты там пишешь, но с Reset ошибки не выдает. Append добавляет текст в конец существующего файла.
Вот пример с Reset и никакой ошибки.

procedure TForm1.Button1Click(Sender: TObject);
var f2:textfile;
begin
if (FileExists('date.txt')=False) then
begin
FileCreate('date.txt');
AssignFile(f2,'date.txt');
Reset(f2);
end;
И еще почитай здесь по аналогичной ошибке, что пишут умные люди. Аккуратнее с файлами рабртать надо, как кстати и со всем другим.

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=44984



end;

end.

[Stilet]

А зачем ты вызвал FileCreate если потом у тебя ReWrite(f2) вызывается?
Убери FileCreate.

[puporev]

Можно еще так проверку сделать

if FileExists(w+'\'+'sek.txt') then
  Append(f)
else
  ReWrite(f);

[kolduev]

to puporev
в любом случаи ошибка вылезает, это ошибка тибо файл занят другим процессом или чё?

[Карась]

Почемубы не вызвать функция IOresult и определить, что она вернёт.

http://valera.asf.ru/delphi/help/name.php?name=IOResult