создание файла и запись в него

← →
FIL-23 © (2007-01-04 11:23) [0]

в фаил который я толькочто создал программно и хочу в него записать сразуже данные, выводится ошибка мол типа фаил други занят и ты его не то что перезаписать ты даже и открыть его не можешь, код программы такой:
if fileexists(extractfilepath(application.ExeName)+"vopros1\"+spinedit1.Text+".txt")=false then filecreate(extractfilepath(application.ExeName)+"vopros1\"+spinedit1.Text+".txt"); assignfile(ff,extractfilepath(application.ExeName)+"vopros1\"+spinedit1.Text+".txt"); s:=memo1.Text; rewrite(ff); write(ff,s); closefile(ff);
и еще, когда запускаю программу повторно (получается что фаил уже создан, с предыдущего запуска) то все проходит гладко. Другая подобная программа сделанная мною раньше работала без подобных глюков. Помогите разобраться в чем дело . Зарание спасибо

← →
Плохиш © (2007-01-04 11:40) [1]

> filecreate

> assignfile

"В огороде бузина, а в Киеве дядька"
Справку почитать по используемым функциям/процедурам не пробовал?

> FIL-23 © (04.01.07 11:23)

Лучше делай так:

assignFile(ff, <Имя файла>); rewrite(ff); writeln(ff, <Нужный текст или переменная>); closeFile(ff);

Таким образом, если файла нет, то он создастся, а если есть, то существующий файл перезапишется.

создание файла и запись в него Найти похожие ветки