Помогите сделать сохранения в игре!!!

[Teen4jump]

Как сделать сохранения в игре??? Игра логическая, похожа на "В президенты", "Бизнесмен", "Хакер".Помогите!!!!

[Romanus]

Ни знаю не одной из выше перечисленных не видел.
Вот тебе первая рекомендация определи какие параметры игры необходимо сохранить. Вторая придумать компактный и легко читаемый формат для хранения этих параметров. И соответственно последнее все это реализовать в коде.

[Teen4jump]

Игра логическая, без анимации, я два дня назад начал её делать. Короче там всякие кнопки, нажимаешь -покупаешь еду и тд. Мне надо сохранить числовые переменные, я счяс пытаюсь это через БД сделать.

[pu4koff]

Сообщение от Teen4jump

я счяс пытаюсь это через БД сделать.

надеюсь БД на MS SQL и доступ через ADO
Зачем тебе БД? не читал никогда про файлы? Бывают типизированные и нетипизированные. А есть еще ini файлы, но в данном случае это глупость

[Alex21]

Сообщение от pu4koff

А есть еще ini файлы, но в данном случае это глупость

Ну, почему глупость сразу??? Хоть в txt сделать
Простейший механизм "шифровки":

Т.к. имеем переменные числового типа(Longint, extended), то к каждой прибавляем некое число, например 12345678 (ко всем разное), и все, совпадений (явных) нет.
При чтении значений, из нужного числа вычитаем теже 12345678 и все - значение загружено.

[Teen4jump]

Мне нужно сохранить переменные, да хотя бы просто числа, в ini или txt файл -- без разницы! Я просто тупо незнаю как это сделать. А про БД я подумал потому что я делал телефонный справочник и там у меня получалось сохранять данные. Я не знаю как сохранить любые данные в любой файл . Из-за этого я недоделал 2 игры. Выложите кто-нибуть код в котором из простого Label ' а или Edit'a данные сохранялись, к примеру, в txt файл. Плиззз!!!

[Ivan_Susanin]

procedure save_file(s:string);
var
fn:string;
begin
fn:=ExtractFilePath(application.Exe Name);
fn:=fn+'save.sav';
assignfile(f,fn);
rewrite(f);
write(f,s);
closefile(f);
end;

[Teen4jump]

procedure save_file(s:string);
var
fn:string;
begin
fn:=ExtractFilePath(application.Exe Name);
fn:=fn+'save.sav';
assignfile(f,fn);---здесь ошибка
rewrite(f);
write(f,s);
closefile(f);
end;

[Teen4jump]

2 Ivan Susanin

переменной S присваивать значения Labela???

[Spartan]

Сообщение от Teen4jump

procedure save_file(s:string);
var
fn:string;
begin
fn:=ExtractFilePath(application.Exe Name);
fn:=fn+'save.sav';
assignfile(f,fn);---здесь ошибка
rewrite(f);
write(f,s);
closefile(f);
end;

необходимо описать переменную "f":

var
f: Text;

Сообщение от Teen4jump

переменной S присваивать значения Labela???

save_file(Label1.Caption);