| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проблема с сохранением в файл

Страницы:   < 1 2 3 >

fen ©   (2009-12-26 12:09:00) 

всем привет, подскажите:

мне нужно сохранить в файл и чтобы если такой файл есть, то он в него дописывал, но если я пишу


fname:='save\'+save+'.txt';
 AssignFile(fil,fname);
 Append(fil);
 Writeln(fil,'Результаты игрока  '+save);
 Writeln(fil,'Дата и время сохранения : '+FrmTetr.Label10.Caption);
 Writeln(fil,'Число очков:  '+FrmTetr.lBall.Caption);
 Writeln(fil,'');
 CloseFile(fil);

то если файл не создан, то пишет ошибку, а если пишу Rewrite(fil)то не дописывает в него

---

FileExists   (2009-12-26 12:20:00) [41]

Assign(...);
if FileExists(...) then
  Append
                     else
  ReWrite(...);

---

12   (2009-12-26 12:17:00) [42]

if not fileexist( f1 ,точно не помню)
тогда пересоздать
иначе писать в конец

---

Страницы:   < 1 2 3 >

Наверх