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

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

Сохранение [Delphi, Windows]

K@zzel ©   (2003-01-31 18:21:00) 

как сотворить сохранение? Например: у меня есть переменная, в ходе игры её значение менятеся, при нажатие кнопки "выход" значение этой переменной должно сохранится, а при последующем запуски загрузится.

---

Darthman   (2003-01-31 18:31:00) [1]

Procedure Save;
var
f : file;
begin
AssignFile(f, "Save.sav");
rewrite(f,1)
BlockWrite(f, SomeVariable, SizeOf(SomeVariable);
Closefile(f);
end;

Procedure Load;
var
f : file;
begin
AssignFile(f, "Save.sav");
reset(f,1)
Blockread(f, SomeVariable, SizeOf(SomeVariable);
Closefile(f);
end;

---

Наверх