Как сохранить текущую игру ?

[INCIC]

У меня есть игра меморина.Нужно чтобы при закрытии формы сохранялась текущая игра.И при следующем запуске была сохранённая игра.
меморина.rar

[ROD]

Моя точка зрения такова:
1. Обрабатываем закрытие формы (не помню как, но это можно сделать)
2. В обработке события (1) вызываем функцию сохранения (ну вобщем как-нибудь сохраняем).
3. Так же программе понадобится файл-напоминалка, в который мы запишем имя файла с сохранением из пункта 2.
4. При запуске программы открываем файл-напоминалку. Если его не существует, либо он не содержит информации об последней сохраненной игре, то не будет вам сохраененной игры при запуске. Если там указана сохраненная игра, то просто ее загружаем.

Альтернатива пунктам 3 и 4:
Никаких напоминалок, при запуске игра ищет в папке с сохранениями файл с самой поздней датой создания и запускает его (если нету сохранений, то небудет и старой игры)

[DeKot]

Не очень понятен смысл игры.
Для начала дам один важный совет: если хотите, что бы Вам помогли, уважайте чужое время, трафик и дисковое пространство.Старайтесь во вложениях оставлять только необходимую информацию.Убирайте из вложений .exe -шник, файлы .dcu ( они появятся все равно при компиляции проекта), и все не нужные файлы, которые не используются непосредственно в проекте.(Вместо никому не интересного Word -овского файла "Отчет", в котором повторяются коды всех Unit, и бессмысленных скриншотов - и все это объемом более 3 Мб, лучше бы прикрепили маленькое пояснение к игре).
Непосредственно по вопросу - конкретно, что в игре Вы хотите сохранить и в каком виде эта информация находится в проекте?.Проект объемный и вряд ли кому то охота сидеть и разбирать дотошно всю игру, что бы понять смысл.
Так что старайтесь задавать вопросы более конкретно.

[INCIC]

Нужно чтобы сохранилось игровое поле,точнее его состояние.
Это должно быть буквально строчки 3-4 написать
Или ввести новую процедуру
P.S.Спасибо за информацию.

[DeKot]

В похожих играх обычно игровое поле привязано к двухмерному массиву, элементы которого хранят значения каждого поля (т.н. индексы), которые соответствуют состоянию поля (или ячейки).
Например - mas_index[0,1]:= 1 (соответствует, скажем цвету Red), mas_index[2,1]:= 3 (Green) и т.д. Получим численный массив (типа byte или integer).Перед выходом из игры записываем этот масив в файл (можно текстовый), а при запуске игры считываем массив из файла и передаем эти значения в программу.

[INCIC]

Ну в принципе нужный алгоритм. Но как реализовать запись массива в файл?Ну и считываине тоже

[DeKot]

Запись:

procedure WriteIndex;

var i,j,s: integer;  // счетчики циклов
    wi: integer;     // переменная  записи  в  файл "индексов" блоков  уровня
    masWI: array[0..14,0..14] of integer;
begin
  AssignFile(i_file,'mem_index.txt');
  Rewrite(i_file); 
    Writeln(i_file,' ');
    for i:= 0 to 14 do
    begin
      for j:= 0 to 14 do
      begin
        wi:= masWI[i,j];
        if j = 14 then Writeln(i_file,wi,' ')
        else
        Write(i_file,wi,' ');
      end;
    end;
  CloseFile(i_file);
end;

Чтение из файла:

procedure  ReadIndex;

var i,j,s: integer;  // счетчики циклов
    ri: integer;     // переменная  записи  в  файл "индексов" блоков  уровня
    masRI: array[0..14,0..14] of integer;
begin
  i:= 0; j:= 0;       //  требование  компилятора об  инициализации
    AssignFile(i_file,'mem_index.txt');
    {$I-}                                // перевод контроля ошибок на программу
    Reset(i_file);
    {$I+}                            //  востановление режима автоматич. обработки ошибок
    if IOResult = 0 then      //  проверка ошибки открытия  файла
    begin
      for s:=0 to 225 do
      begin
        Read(i_file,ri);
        if i = 15 then
        begin
          i:= 0; j:= j+1;
          if j = 15 then j:= 0;
        end;
        masRI[j,i]:= ri;
        i:= i+1;
      end;
      CloseFile(i_file);
    end
    else
    begin
    Application.MessageBox(PChar('ИГРА не сохранена.Начните ИГРУ сначала.Нажмите OK'),
                             PChar(' <  Имя Вашей игры  >'),
                             MB_ICONQUESTION+MB_OK);
    end;
end;

[INCIC]

А как правильно объявить процедуры?!
Вроде самое,то )

[DeKot]

Создайте глобально массив, в который заносите состояние полей (ячеек) игрового поля.(В выше приведенных примерах masWI и masRI -это по сути один и тот же массив).Введите в проект компонент(кнопку или меню) "Сохранить игру", по которому сохраняется игра.В обработчике этого компонента и вызывайте процедуру WriteIndex.При запуске игры аналогично введите компонент "Загрузить сохраненную игру" и в обработчике вызывайте ReadIndex.
Cами процедуры описываются в начале раздела implementation.

[INCIC]

Спасибс)посмотрим что получится)