Сохранение

← →
K@zzel © (2003-01-31 18:21) [0]

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

← →
Darthman (2003-01-31 18:31) [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;

Сохранение Найти похожие ветки