save file delphi

[keef]

Давно начал писать программу и назрел вопрос. Не раз видел сэйв файлы игр и т.д. в них информация хранится не в прямом виде и изменить просто не получится. Вот вопрос в том, как создать такой сэйв файл, вариант с шифровкой метода замены конечно тоже подойдёт но это не интерисует так как хватит и своих знаний )

[Alex Cones]

Просто пишите через BlockWrite и никому не показывайте структуры.

[keef]

Можно небольшой пример с StringList, дабы задать верный путь ?)

[Alex Cones]

А каким боком тут фигурирует StringList? О_о

[keef]

Ну вообще я просто даже представления не имею о BlockWrite поэтому у меня фигурирует ) Да и программа уже под строки подстроена

[psycho-coder]

Ну, вот кусок из моей проги, правда он на Pascal

program Rec;

uses
	Crt;

const
	DATABASE    = 'database.db';
	ERR_READ    = 0;
	ERR_WRITE   = 1;
	ERR_ASSIGN  = 2;
	ERR_OPEN    = 3;

type
  mydb = record
    Date: String[10];
    Price: Real;
    Count: Integer;
    Cost: Real;
  end;

var
  db: mydb;

function GetError(const errno: Integer; const errtxt: Byte): Boolean;
begin
  GetError := false;
  if errno <> 0 then
  begin
    ClrScr;
    TextColor(12);
    case errtxt of
      0: WriteLn('Can''t read database from disk', #13#10, 'Error #', errno);
      1: WriteLn('Can''t write database to disk', #13#10, 'Error #', errno);
      2: WriteLn('Can''t assign database', #13#10, 'Error #', errno);
      3: WriteLn('Can''t open database', #13#10, 'Error #', errno);
    end;
    GetError := true;
  end;
end;

{ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; }

{ Запись }
procedure dbWrite;
var
  d_db: File of mydb;
begin
  {$I-}
  Assign(d_db, DATABASE);
  if GetError(IOResult, ERR_ASSIGN) then Exit;
  Reset(d_db);
  if GetError(IOResult, ERR_OPEN) then Exit;
  Seek(d_db, FileSize(d_db));
  Write(d_db, db);
  if not GetError(IOResult, ERR_WRITE) then
  begin
    WriteLn('Record was been added');
  end;
  Close(d_db);
end;

{ Ввод данных }
procedure dbEnter;
begin
  ClrScr;
  Write('Enter date[10]: ');ReadLn(db.Date);
  Write('Enter price: '); ReadLn(db.Price);
  Write('Enter count: '); ReadLn(db.Count);
  db.Cost := db.Price * db.Count;
  WriteLn('Cost is = ', Int(db.Cost):4:2);
  dbWrite;
  WriteLn('--------------------------------------------------------------------------------');
end;

begin
  dbEnter;
end.

А про BlockWrite можно в help'e почитать. Делает примерно тоже самое, только другим способом
P.S. Без примера данных, тут сложно сказать, что нужно. Покажи кусок кода (переменные и т.д.) которые нужно сохранить

[keef]

Ну вот примерно так:

var
f : TStringList;

procedure m(Sender: TObject);
begin
f:=TStringList.Create();
f.LoadFromFile('text.save');
f.Add(IntToStr(x)); //деньги
f.Add(IntToStr(y)); //число
f.SaveToFile('text.save');
end;

Ну, как видно просто новые строки добавляет и каждая строка несёт своё значение.

[fbus]

keef, да таким макаром в ini-шник обычный проще сохранять

[keef]

М, а шифроваться как ?) Ведь ini он и существует на то чтобы открыть и поменять )

[bag]

keef, насколько я понял, главное не то, чтобы такой файл нельзя было прочитать, а то, чтобы его так просто нельзя было изменить. В этих случаях при генерации файла считается его контрольная сумма (по какому-нибудь хитрому алгоритму), которая потом записывается, например, в конец этого файла. При загрузке файла прога снова рассчитывает контрольную сумму и если рассчитанное значение не совпадает с записанным в файле, сообщает об ошибке.