Пипл срочно надо избавиться от этой ошибки

код вроде верный

try

AssignFile(f, FileName);
Reset(f);
except
Rewrite(f) ;
end;

Файл существует
но на любую попытку скинуть в него хоть что то мессадже

I\O Error 105

что не так?!

Подожди, т.е. теоретически возможна команда ReWrite без Assign-а?...
Это ли не ошибка?
Тем более если файл существует, то он откроется для чтения и понятно, что писать он в себя ничего не дает это ошибка два.

Ой прошу пардону

AssignFile(f, FileName);
try
Reset(f);
except
Rewrite(f) ;
end;


Rewrite() отрабатывает

ругань конкретно идет на WriteLn(f,BlaBlaBlaBlaBlaBlaBla) при Reset(f) при пошаговой трассировке F8

напоминаю 105 ошибка это невозможность открыть файл для записи

AssignFile(f, FileName) OK
try OK
Reset(f); OK
except OK


структура отработала (т.е. существующий файл получил указатель и открыт для работы)

WriteLn(f,BlaBlaBlaBlaBlaBlaBla)

I\O Error 105

PS кстати аналогичное построение с $I- .... $I+ результат аналогичный

Че-то я не пойму:
что за конструкция, для чего она, или я чего-то не понимаю или она лишена логики. т.е. программа должна попробовать открыть файл для чтения и если не получилось то открыть для записи....? Странно как-то это.

try
Reset(f);
except
Rewrite(f) ;
end;

а почему отрабатывает Rewrite(f) ; т.е. для чтения он открытьсяне может?
а для записи может?.....

далее WriteLn(f,BlaBlaBlaBlaBlaBlaBla)
BlaBlaBlaBlaBlaBlaBla-это переменная или имеется ввиду WriteLn(f,'BlaBlaBlaBlaBlaBlaBla')?

Мне кажется но все-таки открывается для чтения и ругается при попытке записать что-либо в него, что вообщем-то естественно.

Если хочешь писать пиши:

Код

AssignFile(f, FileName); Rewrite(f); write(f, '.....'); end;

[s]

f - какого типа?

Собственно по ошибкам в/в, можно исп. дерективы компилятора {$I-} и {$I+}
Добавлено @ 02:05

Цитата(Vit @ 14.12.2004, 18:01)

f - какого типа?

Имхо, тип здесь не играет особой роли...

Цитата(Zero @ 14.12.2004, 17:00)

Имхо, тип здесь не играет особой роли...

Считаешь что мне делать нечего?

Ошибка в общем-то проста и очевидна, я не зря про тип спрашивал, не совсем был уверен, хотя и догадывался откуда ноги растут, сейчас добрался до Дельфи проверил...

Вот код:

Код

var f:TextFile; begin  AssignFile(f, 'c:\myfile.txt');  Reset(f);  write(f, 'sssss'); end;

Если этот код запустить, и файл 'c:\myfile.txt' существует, то получим эту самую ошибку 105. Почему? До потому что reset не открывает текстовые файлы на запись! только на чтение. Для записи текстовый файл должен быть открыт только rewrite или append. Вот и все проблемы!

Об чем и говорим на каждом собрании... :-)

Только что вернулся от заказчика....
прошу извинить за долгое молчание

и так
тип файла
My_File:TextFile
т.е. текстовой

Директивы компилятора {$I} позволяют отлавливать Error Code
2: Файл не найден
3: Неверное имя
4: Слишком много открытых файлов
5: Файл не доступен
100: Достигнут конец файла (EOF)
101: диск переполне
106: ошибка ввода

105 относится к расширенной таблице ошибок

Если этот код запустить, и файл 'c:\myfile.txt' существует, то получим эту самую ошибку 105. Почему? До потому что reset не открывает текстовые файлы на запись! только на чтение. Для записи текстовый файл должен быть открыт только rewrite или append. Вот и все проблемы!

спасибо VIT
большое
но насчет очевидности

я к примеру не знал этого ....
хотя стаж еше с TP4
еще раз большое спасибо

Цитата

но насчет очевидности я к примеру не знал этого .... хотя стаж еше с TP4

У меня опыт больше! Я с TP3

Vit
Приятно, когда тебя окружают такие проффесионалы!

Цитата(Vit @ 15.12.2004, 03:06)

Считаешь что мне делать нечего?

Извени Vit, нехотел тебя обидеть, до меня и до самого сразу недошло что от типа многое зависит, покрайней мере в данном случае...
Просто мне обычно когда требется избавится от ошибок в/выв, то на ум всегда первое что приходит ─ отключение на их проверку, а дальше что-нибудь ещё предумывать приходится...
Ещё раз, извени...

Это сообщение отредактировал(а) Zero - 17.12.2004, 23:35

Цитата(Zero @ 17.12.2004, 14:34)

Ещё раз, извени...

Не страшно, сам такие ляпы делаю систематически