| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
создание файла и запись в него [D6, XP]
FIL-23 © (2007-01-04 11:23:00)в фаил который я толькочто создал программно и хочу в него записать сразуже данные, выводится ошибка мол типа фаил други занят и ты его не то что перезаписать ты даже и открыть его не можешь, код программы такой:
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);
и еще, когда запускаю программу повторно (получается что фаил уже создан, с предыдущего запуска) то все проходит гладко. Другая подобная программа сделанная мною раньше работала без подобных глюков. Помогите разобраться в чем дело . Зарание спасибо
Calibr (2007-01-04 14:26:00) [1]
> FIL-23 © (04.01.07 11:23)
Лучше делай так:
assignFile(ff, <Имя файла>);
rewrite(ff);
writeln(ff, <Нужный текст или переменная>);
closeFile(ff);
Таким образом, если файла нет, то он создастся, а если есть, то существующий файл перезапишется.
Плохиш (2007-01-04 11:40:00) [2]
> filecreate
> assignfile
"В огороде бузина, а в Киеве дядька"
Справку почитать по используемым функциям/процедурам не пробовал?
| |
