Forum.iFiction.Ru

Смотря что ты хочешь сохранить или загрузить. Если набор переменных, то что может быть проще создания файла без типа и записи в него всех переменных:

procedure SaveGame();
var F : file;
begin
   Assign(F,'game001.sav');
   Rewrite(F,1);
   BlockWrite(F,GamerName,SizeOf(GamerName));
   BlockWrite(F,LocationCode,SizeOf(LocationCode));
   BlockWrite(F,Money,SizeOf(Money));
   Close(F);
end;

procedure LoadGame();
var F : file;
begin
   Assign(F,'game001.sav');
   Reset(F,1);
   BlockRead(F,GamerName,SizeOf(GamerName));
   BlockRead(F,LocationCode,SizeOf(LocationCode));
   BlockRead(F,Money,SizeOf(Money));
   Close(F);
end;

Здесь GamerName, LocationCode, Money - это имена переменных, используемых в игре.

Нет, такие файлы нельзя прочитать через Нотепад
   Если хочешь, чтоб можно было, то делай так:

   var f: Text;  i: Byte;
   Begin
   Assign(f, 'savefile.svf');
   Rewrite(f);
   Writeln(f,'Something strange happens...');
   i:=23;
   Writeln(f,i);
   ... [etc] ...
   Close(f);