Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];
Вниз
создание файла и запись в него Найти похожие ветки
← →
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
"В огороде бузина, а в Киеве дядька"
Справку почитать по используемым функциям/процедурам не пробовал?
← →
Calibr © (2007-01-04 14:26) [2]
> FIL-23 © (04.01.07 11:23)
Лучше делай так:assignFile(ff, <Имя файла>);
rewrite(ff);
writeln(ff, <Нужный текст или переменная>);
closeFile(ff);
Таким образом, если файла нет, то он создастся, а если есть, то существующий файл перезапишется.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c
