Что-то я уже совсем в ауте . Пишу простой код(это НУ ОЧЕНЬ упрощённая одна процедурка, которая в OnCreate работает):

Код

procedure TForm1.FormDestroy(Sender: TObject); var f1:textfile; const filename = 'C:\temp\1.dat'; begin system.assign(f1,filename); try system.rewrite(f1); finally system.close(f1); end; end;

Код выдаёт "File NOT FOUND"

Папка 'C:\temp\' существует. Файл ничем не занят, никакой другой программой не открыт (проверял сканингом всех handle). я пробовал открывать файл с помощью reset (существующий), но пишет то же самое, даже если перед этим поставить

Код

If not fileexists(filename) THEN exit;

то оно проходит дальше (файл находит), но при попытке открыть\перезаписать\добавить он не находится.

так что происходит? Почему выходит ошибка

Попробуй использовать AssignFile за место Assign

И точно так же с CloseFile.

Не помогает... Я для разнообразия написал Assign...
Вот... Уже нашёл кое-что:

Код

procedure TForm1.erase_(Sender: TObject); var f1,f2:textfile; begin try assignfile(f1,getcurrentdir+'\sound.wav'); assignfile(f2,getcurrentdir+'\gothicg_.ttf'); Filesetattr(getcurrentdir+'\gothicg_.ttf',0); Filesetattr(getcurrentdir+'\sound.wav',0); {$I-} erase(f1); erase(f2); {$I+} finally end; end;

Эта процедурка вызывалась перед этим... После модификаци вот так:

Код

procedure TForm1.erase_(Sender: TObject); var f1,f2:textfile; begin if fileexists(getcurrentdir+'\sound.wav') then begin assignfile(f1,getcurrentdir+'\sound.wav'); Filesetattr(getcurrentdir+'\sound.wav',0); {$I-} erase(f1); {$I+} end; if fileexists(getcurrentdir+'\gothicg_.ttf') then begin assignfile(f2,getcurrentdir+'\gothicg_.ttf'); Filesetattr(getcurrentdir+'\gothicg_.ttf',0); {$I-} erase(f2); {$I+} end; end;

Всё вроде заработало... Где капитальная ошибка в erase_??? Почему он влияет на последующее открытие файлов, если он не юзает те файлы, которые я после пытаюсь открыть??

Illusion Dolphin А ты уверен, что GetCurrentDir возвращает нужную тебе директорию? Например, если у тебя в проекте есть TOpenDialog, то он (если не отключить опцию одну) изменяет текущую директорию при его использовании.

Уверен на 100%, это моя процедура, которая вырезает из имена экзешника директорию, где он расположен. Ты пурепутал её с функцией getcurrentdirectory... Вопрос остаётся открытым: почему не работало?

А ты случайно не удалял Erase'ами несуществующие файлы ?

Да, удалял... А, может, и не удалял... Но удалял я (точнее на вякий слуячай пытался) в oncreate, а тут уже удалял сущ. файлы. А это очень страшно? Что из-за этого происходит?

Это сообщение отредактировал(а) Illusion Dolphin - 6.2.2004, 09:48

Вот тебе Erase и выдавал "File not found", раз ты пытался удалить несуществующий файл при включенной проверке I/O {$I+}. То что было после Erase не выполнялось (Rewrite'ы всякие)...

Illusion Dolphin
Кстати, файлы, случаем не read-only?

p0s0l, по-моему ты был прав... я как-то и не подумал... Значит, функция ioresult возвращала "старую" ошибку, но тогда интересно, как бы значение этой функции "обнулить", чтобы не возникало подобных ошибок?

StayAtHome

Код

Filesetattr(getcurrentdir+'\gothicg_.ttf',0);  //!

Если у тебя Erase без {$I-}, то при ошибка вываливается окно, и выполнение процедуры прекращается...
Если у тебя {$I-} Erase() {$I+}, то тут если произойдет ошибка, то окно с ошибкой не появится, и IOResult вернет код ошибки, но главное - что выполнение процедуры продолжится.
Но есть моменты, вот различные варианты:

Код

Assign(f1, <файла, которого нет>); {$I-} Erase (f1); {$I+} Assign(f2, 'abc.dat'); Rewrite(f2); // тут вывалится ошибка, что файла нет - это осталось от Erase

С проверкой IOResult всё будет нормально:

Код

Assign(f1, <файла, которого нет>); {$I-} Erase (f1); {$I+} IOResult; // просто проверяем IOResult, ничего не предпринимая Assign(f2, 'abc.dat'); Rewrite(f2); // тут будет всё ОК

А если просто сделать {$I-}, но не делать {$I+}:

Код

Assign(f1, <файла, которого нет>); {$I-} Erase (f1); Assign(f2, 'abc.dat'); Rewrite(f2); // тут будет всё ОК