Changeset 19 for trunk/UGame.pas

Timestamp:

Oct 5, 2019, 1:00:29 PM (5 years ago)

Author:

chronos

Message:

• Added: Remember board state between application restarts.

File:

• trunk/UGame.pas (modified) (5 diffs)

trunk/UGame.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Dialogs, fgl, Graphics, Types, Forms, Math, DateUtils,
-  Controls;
+  Controls, URegistry;
 
 type
@@ -39 +39 @@
     function GetEmptyTilesCount: Integer;
     procedure GetEmptyTiles(EmptyTiles: TTiles);
+    procedure SaveToRegistry(RegContext: TRegistryContext);
+    procedure LoadFromRegistry(RegContext: TRegistryContext);
     destructor Destroy; override;
     property Size: TPoint read FSize write SetSize;
@@ -72 +74 @@
     procedure MoveTile(SourceTile, TargetTile: TTile);
     function IsValidPos(Pos: TPoint): Boolean;
+    procedure SaveToRegistry(RegContext: TRegistryContext);
+    procedure LoadFromRegistry(RegContext: TRegistryContext);
     constructor Create;
     destructor Destroy; override;
@@ -131 +135 @@
       if Tiles[Y, X].Value = 0 then
         EmptyTiles.Add(Tiles[Y, X]);
+end;
+
+procedure TBoard.SaveToRegistry(RegContext: TRegistryContext);
+var
+  X, Y: Integer;
+  Value: string;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := RegContext;
+
+    Value := '';
+    for Y := 0 to Size.Y - 1 do begin
+      for X := 0 to Size.X - 1 do begin
+        Value := Value + IntToStr(Tiles[Y, X].Value);
+        if X < Size.X - 1 then Value := Value + ',';
+      end;
+      if Y < Size.Y - 1 then Value := Value + ';'
+    end;
+    WriteString('TileValues', Value);
+  finally
+    Free;
+  end;
+end;
+
+procedure TBoard.LoadFromRegistry(RegContext: TRegistryContext);
+var
+  X, Y: Integer;
+  Items: TStringList;
+  Lines: TStringList;
+  Number: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := RegContext;
+
+    Items := TStringList.Create;
+    Items.Delimiter := ',';
+    Lines := TStringList.Create;
+    Lines.Delimiter := ';';
+    Lines.DelimitedText := ReadStringWithDefault('TileValues', '');
+    for Y := 0 to Lines.Count - 1 do begin
+      Items.DelimitedText := Lines[Y];
+      for X := 0 to Items.Count - 1 do begin
+        if TryStrToInt(Items[X], Number) and (X < Size.X) and (Y < Size.Y) then
+          Tiles[Y, X].Value := Number;
+      end;
+    end;
+  finally
+    Free;
+  end;
 end;
 
@@ -497 +552 @@
 end;
 
+procedure TGame.SaveToRegistry(RegContext: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := RegContext;
+
+    WriteInteger('TopScore', TopScore);
+    WriteInteger('AnimationDuration', AnimationDuration);
+    WriteInteger('SizeX', Board.Size.X);
+    WriteInteger('SizeY', Board.Size.Y);
+    WriteInteger('Score', Score);
+    WriteBool('GameRunning', FRunning);
+    WriteBool('Won', Won);
+  finally
+    Free;
+  end;
+  Board.SaveToRegistry(RegContext);
+end;
+
+procedure TGame.LoadFromRegistry(RegContext: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := RegContext;
+    Board.Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
+    AnimationDuration := ReadIntegerWithDefault('AnimationDuration', 30);
+    TopScore := ReadIntegerWithDefault('TopScore', 0);
+    Score := ReadIntegerWithDefault('Score', 0);
+    FRunning := ReadBoolWithDefault('GameRunning', False);
+    Won := ReadBoolWithDefault('Won', False);
+  finally
+    Free;
+  end;
+  Board.LoadFromRegistry(RegContext);
+end;
+
 constructor TGame.Create;
 begin